Lines Matching full:version
17 package No::Version;
20 sub VERSION { 42 } subroutine
22 package Test::Version;
24 use parent -norequire, 'No::Version';
25 ::is( $No::Version::VERSION, undef, '$VERSION gets left alone' );
27 # Test Inverse: parent.pm should not clobber existing $VERSION
28 package Has::Version;
30 BEGIN { $Has::Version::VERSION = '42' };
34 use parent -norequire, 'Has::Version';
35 ::is( $Has::Version::VERSION, 42 );
45 $Eval2::VERSION = "1.02";
47 $Eval1::VERSION = "1.01";
55 is( $Eval1::VERSION, '1.01' );
57 is( $Eval2::VERSION, '1.02' );
70 BEGIN { $Has::Version_0::VERSION = 0 }
75 ::is( $Has::Version_0::VERSION, 0, '$VERSION==0 preserved' );