note
BrowserUk
<p>From the source
<code>
package Class::HPLOO ;
use 5.006 ;
use Filter::Simple ;
use strict ;
use vars qw($VERSION $SYNTAX) ;
$VERSION = '0.19';
</code>
<P>I tried the usual <code>perl -MClass::HPLOO -le"print $Class::HPLOO::VERSION"</code> but that prints nothing?
<p>And with warnings I get
<code>
[20:02:40.59] P:\test>perl -MClass::HPLOO -lwe"print $Class::HPLOO::VERSION"
Scalar value @ret[0] better written as $ret[0] at c:/Perl/site/lib/Class/HPLOO.pm line 784.
"my" variable $class masks earlier declaration in same scope at c:/Perl/site/lib/Class/HPLOO.pm line 993.
Scalar value @ret[0] better written as $ret[0] at c:/Perl/site/lib/Class/HPLOO.pm line 1102.
"my" variable $fh masks earlier declaration in same scope at c:/Perl/site/lib/Class/HPLOO.pm line 1320.
Use of uninitialized value in numeric eq (==) at c:/Perl/site/lib/Class/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/HPLOO.pm line 602.
Use of uninitialized value in numeric le (<=) at c:/Perl/site/lib/Class/HPLOO.pm line 602.
Use of uninitialized value in substr at c:/Perl/site/lib/Class/HPLOO.pm line 716.
print() on unopened filehandle 0.19 at -e line 1.
</code>
<div class="pmsig"><div class="pmsig-171588">
<hr />
<font size=1 >
<div>Examine what is said, not who speaks.</div>
<div>Silence betokens consent.</div>
<div>Love the truth but pardon error.</div>
</font>
</div></div>
422423
422535