Searched defs:Has (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/base/t/
H A Dbase.t20 package Has::Version;
22 BEGIN { $Has::Version::VERSION = '42' };
26 use base qw(Has::Version);
27 ::is( $Has::Version::VERSION, 42 );
59 BEGIN { $Has::Version_0::VERSION = 0 }
63 use base qw(Has::Version_0);
64 ::is( $Has::Version_0::VERSION, 0, '$VERSION==0 preserved' );

Completed in 22 milliseconds