Lines Matching full:version
13 # parse various module $VERSION lines
17 # vers => expected version object (in stringified form),
23 name => 'no $VERSION line',
31 name => 'undefined $VERSION',
34 our $VERSION;
43 our $VERSION = '1.23';
52 our $VERSION;
53 $VERSION = '1.23';
60 our $VERSION = '1.23'; # our $VERSION = '4.56';
69 # our $VERSION = '4.56';
70 our $VERSION = '1.23';
79 use vars qw( $VERSION );
80 $VERSION = '1.23';
89 $VERSION = '0';
91 $VERSION = '1.23'; # this should be chosen for version
97 name => 'just read the first $VERSION line',
100 $VERSION = '1.23'; # we should see this line
101 $VERSION = eval $VERSION; # and ignore this one
107 name => 'just read the first $VERSION line in reopened package (1)',
110 $VERSION = '1.23';
112 $VERSION = '2.34';
119 name => 'just read the first $VERSION line in reopened package (2)',
123 $VERSION = '2.34';
125 $VERSION = '1.23';
131 name => 'mentions another module\'s $VERSION',
134 $VERSION = '1.23';
135 if ( $Other::VERSION ) {
143 name => 'mentions another module\'s $VERSION in a different package',
146 $VERSION = '1.23';
148 if ( $Simple::VERSION ) {
156 name => '$VERSION checked only in assignments, not regexp ops',
159 $VERSION = '1.23';
160 if ( $VERSION =~ /1\.23/ ) {
168 name => '$VERSION checked only in assignments, not relational ops (1)',
171 $VERSION = '1.23';
172 if ( $VERSION == 3.45 ) {
180 name => '$VERSION checked only in assignments, not relational ops (2)',
183 $VERSION = '1.23';
185 if ( $Simple::VERSION == 3.45 ) {
193 name => 'Fully qualified $VERSION declared in package',
196 $Simple::VERSION = 1.23;
202 name => 'Differentiate fully qualified $VERSION in a package',
205 $Simple2::VERSION = '999';
206 $Simple::VERSION = 1.23;
212 name => 'Differentiate fully qualified $VERSION and unqualified',
215 $Simple2::VERSION = '999';
216 $VERSION = 1.23;
222 name => 'Differentiate fully qualified $VERSION and unqualified, other order',
225 $VERSION = 1.23;
226 $Simple2::VERSION = '999';
232 name => '$VERSION declared as package variable from within "main" package',
234 $Simple::VERSION = '1.23';
244 name => '$VERSION wrapped in parens - space inside',
247 ( $VERSION ) = '1.23';
249 '1.23' => <<'---', # $VERSION wrapped in parens - no space inside
251 ($VERSION) = '1.23';
257 name => '$VERSION follows a spurious "package" in a quoted construct',
264 our $VERSION = "1.23";
270 name => '$VERSION using version.pm',
273 use version; our $VERSION = version->new('1.23');
279 name => '$VERSION using version.pm and qv()',
282 use version; our $VERSION = qv('1.230');
288 name => 'underscore version with an eval',
291 $VERSION = '1.23_01';
292 $VERSION = eval $VERSION;
298 name => 'Two version assignments, no package',
300 $Simple::VERSION = '1.230';
301 $Simple::VERSION = eval $Simple::VERSION;
307 name => 'Two version assignments, should ignore second one',
310 $Simple::VERSION = '1.230';
311 $Simple::VERSION = eval $Simple::VERSION;
320 our $VERSION = '1.23_00_00';
326 name => 'package NAME VERSION',
334 name => 'package NAME VERSION',
342 name => 'package NAME VERSION',
350 name => 'package NAME VERSION',
358 name => 'class NAME VERSION',
366 name => 'class NAME VERSION',
374 name => 'class NAME VERSION',
382 name => 'class NAME VERSION',
393 our $VERSION;
394 $VERSION = '1.23-alpha';
403 our $VERSION;
404 $VERSION = '1.23b';
413 our $VERSION;
414 $VERSION = '1.2_3_4';
423 our $VERSION;
424 $VERSION = 'onetwothree';
430 name => 'package NAME BLOCK, undef $VERSION',
433 our $VERSION;
440 name => 'package NAME BLOCK, with $VERSION',
443 our $VERSION = '1.23';
450 name => 'package NAME VERSION BLOCK (1)',
460 name => 'package NAME VERSION BLOCK (2)',
470 name => 'class NAME BLOCK, undef $VERSION',
473 our $VERSION;
480 name => 'class NAME BLOCK, with $VERSION',
483 our $VERSION = '1.23';
490 name => 'class NAME VERSION BLOCK (1)',
500 name => 'class NAME VERSION BLOCK (2)',
514 our ($VERSION) = ($CVSVERSION =~ /(\d+\.\d+)/);
524 our $VERSION = v2.2.102.2;
533 our $VERSION = "0.0.9_1";
542 our $VERSION = '1.12.B55J2qn'; our $WTF = $VERSION; $WTF =~ s/^\d+\.\d+\.//; # attempts to rationalize $WTF go here.
551 { our $VERSION = '1.12'; }
557 name => 'calculated version - from Acme-Pi-3.14',
560 my $version = atan2(1,1) * 4; $Simple::VERSION = "$version";
574 my $CVSVERSION = '$Revision: 1.7 $'; our ($VERSION) = ($CVSVERSION =~ /(\d+\.\d+)/);
584 our $VERSION = $Bar::VERSION;
592 our $VERSION = # Hide from PAUSE
594 $VERSION = eval $VERSION;
603 $VERSION = eval 'use version; 1' ? 'version'->new('0.30') : '0.30';
609 name => '$VERSION inside BEGIN block',
612 BEGIN { $VERSION = '1.23' }
621 name => 'our $VERSION inside BEGIN block',
625 BEGIN { our $VERSION = '1.23' }
634 name => 'no assumption of primary version merely if a package\'s $VERSION is referenced',
637 $Foo::Bar::VERSION = '1.23';
643 name => 'no package statement; bare $VERSION',
645 $VERSION = '1.23';
652 name => 'no package statement; bare $VERSION with our',
654 our $VERSION = '1.23';
661 name => 'no package statement; fully-qualified $VERSION for main',
663 $::VERSION = '1.23';
669 name => 'no package statement; fully-qualified $VERSION for other package',
671 $Foo::Bar::VERSION = '1.23';
681 our $VERSION = '1.23';
703 skip( "No package NAME VERSION support until perl 5.11.1", (defined $expected_version ? 3 : 2) )
717 my $got = $pm_info->version;
725 isa_ok($got, 'version') or $errs++ if defined $expected_version;
732 "case '$test_case->{name}': module version passes match sub"
741 "case '$test_case->{name}': correct module version ("