Anyone know why this doesn't do what I think t should do:
#!/usr/bin/perlprint POOP::printversion();
print "\n";package POOP;
use vars qw($VERSION);$VERSION = "0.1.1″;
sub printversion {
return "VER:" . $POOP::VERSION;
}1;
because a Reverend can’t be wrong.
Anyone know why this doesn't do what I think t should do:
#!/usr/bin/perlprint POOP::printversion();
print "\n";package POOP;
use vars qw($VERSION);$VERSION = "0.1.1″;
sub printversion {
return "VER:" . $POOP::VERSION;
}1;