package Class::HPLOO ;
use 5.006 ;
use Filter::Simple ;
use strict ;
use vars qw($VERSION $SYNTAX) ;
$VERSION = '0.19';
I tried the usual perl -MClass::HPLOO -le"print $Class::HPLOO::VERSION" but that prints nothing?
And with warnings I get
[20:02:40.59] P:\test>perl -MClass::HPLOO -lwe"print $Class::HPLOO::VE
+RSION"
Scalar value @ret[0] better written as $ret[0] at c:/Perl/site/lib/Cla
+ss/HPLOO.pm line 784.
"my" variable $class masks earlier declaration in same scope at c:/Per
+l/site/lib/Class/HPLOO.pm line 993.
Scalar value @ret[0] better written as $ret[0] at c:/Perl/site/lib/Cla
+ss/HPLOO.pm line 1102.
"my" variable $fh masks earlier declaration in same scope at c:/Perl/s
+ite/lib/Class/HPLOO.pm line 1320.
Use of uninitialized value in numeric eq (==) at c:/Perl/site/lib/Clas
+s/HPLOO.pm line 595.
Use of uninitialized value in pattern match (m//) at c:/Perl/site/lib/
+Class/HPLOO.pm line 602.
Use of uninitialized value in string eq at c:/Perl/site/lib/Class/HPLO
+O.pm line 602.
Use of uninitialized value in numeric le (<=) at c:/Perl/site/lib/Clas
+s/HPLOO.pm line 602.
Use of uninitialized value in substr at c:/Perl/site/lib/Class/HPLOO.p
+m line 716.
print() on unopened filehandle 0.19 at -e line 1.
Examine what is said, not who speaks.
Silence betokens consent.
Love the truth but pardon error.
|