Lines Matching full:version
15 my $Has_Version = eval 'require version; "version"->import; 1';
18 my %versions = (q[$VERSION = '1.00'] => '1.00',
19 q[*VERSION = \'1.01'] => '1.01',
20 q[($VERSION) = q$Revision: 32208 $ =~ /(\d+)/g;] => 32208,
21 q[$FOO::VERSION = '1.10';] => '1.10',
22 q[*FOO::VERSION = \'1.11';] => '1.11',
23 '$VERSION = 0.02' => 0.02,
24 '$VERSION = 0.0' => 0.0,
25 '$VERSION = -1.0' => 'undef',
26 '$VERSION = undef' => 'undef',
28 q[my $VERSION = '1.01'] => 'undef',
29 q[local $VERSION = '1.02'] => 'undef',
30 q[local $FOO::VERSION = '1.30'] => 'undef',
31 q[if( $Foo::VERSION >= 3.00 ) {]=> undef,
32 q[our $VERSION = '1.23';] => '1.23',
33 q[$CGI::VERSION='3.63'] => '3.63',
34 … q[$VERSION = "1.627"; # ==> ALSO update the version in the pod text below!] => '1.627',
35 q[BEGIN { our $VERSION = '1.23' }] => '1.23',
37 '$Something::VERSION == 1.0' => undef,
38 '$Something::VERSION <= 1.0' => undef,
39 '$Something::VERSION >= 1.0' => undef,
40 '$Something::VERSION != 1.0' => undef,
41 'my $meta_coder = ($JSON::XS::VERSION >= 1.4) ?' => undef,
43 qq[\$Something::VERSION == 1.0\n\$VERSION = 2.3\n] => '2.3',
44 qq[\$Something::VERSION == 1.0\n\$VERSION = 2.3\n\$VERSION = 4.5\n] => '2.3',
46 '$VERSION = sprintf("%d.%03d", q$Revision: 3.74 $ =~ /(\d+)\.(\d+)/);' => '3.074',
47 '$VERSION = substr(q$Revision: 2.8 $, 10) + 2 . "";' => '4.8',
48 …q[our $VERSION = do { my @r = ( q$Revision: 2.7 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };…
49 'elsif ( $Something::VERSION >= 1.99 )' => undef,
53 $versions{q[use version; $VERSION = qv("1.2.3");]} = qv("1.2.3");
54 $versions{q[$VERSION = qv("1.2.3")]} = qv("1.2.3");
55 $versions{q[$VERSION = v1.2.3]} = 'v1.2.3';
67 $versions{q[our $VERSION = "1.00 / the fucking fuck";]} = 'undef';
70 our $VERSION = 2.34;
74 our $VERSION = 2.34;
80 our $VERSION = 2.34;
94 our $VERSION = 2.34;
99 our $VERSION = 2.34;
105 our $VERSION = 2.34;
111 delete $versions{'$VERSION = -1.0'};
144 my $version = MM->parse_version( $file );
147 return $version;
151 # This is a specific test to see if a version subroutine in the $VERSION
152 # declaration confuses later calls to the version class.
155 skip "need version.pm", 4 unless $Has_Version;
156 is parse_version_string(q[ $VERSION = '1.00'; sub version { $VERSION } ]),
157 '1.00', "eval 'sub version {...} in version string";
158 is parse_version_string(q[ use version; $VERSION = version->new("1.2.3") ]),
159 qv("1.2.3"), "version.pm not confused by version sub";