Lines Matching full:package

83   my ($dist_name, $dist_dir) = new_dist(files => { $file => "package Simple;\n" });
107   # Find each package only once
110 package Simple;
112 package Error::Simple;
114 package Simple;
120   is( @packages, 2, 'record only one occurence of each package' );
124   # Module 'Simple.pm' does not contain package 'Simple';
128 package Simple::Not;
134   is( $pm_info->name, undef, 'no default package' );
135   is( $pm_info->version, undef, 'no version w/o default package' );
138 # parse $VERSION lines scripts for package main
140   <<'---', # package main declared
142 package main;
145   <<'---', # on first non-comment line, non declared package main
154   <<'---', # 1st declared package
156 package main;
158 package _private;
161   <<'---', # 2nd declared package
163 package _private;
165 package main;
168   <<'---', # split package
170 package main;
171 package _private;
173 package main;
176   <<'---', # define 'main' version from other package
177 package _private;
181   <<'---', # define 'main' version from other package
182 package _private;
208 package Simple;
210 package Simple::Ex;
232   is( $pm_info->name, 'Simple', 'found default package' );
233   is( $pm_info->version, '0.01', 'version for default package' );
235   # got correct version for secondary package
237       'version for secondary package' );
301 package Simple;
320   is( $pm_info->name, 'Simple', 'found default package' );
321   is( $pm_info->version, '1.23', 'version for default package' );
373 package Simple;
382   is( $pm_info->name, 'Simple', 'found default package' );
383   is( $pm_info->version, '0.01', 'version for default package' );
392 package Simple;
394 package Simple::Simon;
399   is( $pm_info->name, 'Simple', 'found default package' );
400   is( $pm_info->version, '0.60.128', 'version for default package' );
403   is( $pm_info->version('Simple::Simon'), '0.61.129', 'version for embedded package' );
411 package Simple;
413 package Simple::Ex;
416   package main; # should ignore this
419   package DB; # should ignore this
422   package Simple::_private; # should ignore this
498 package simple;
503   is( $pm_info->name, undef, 'no default package' );
504   is( $pm_info->version, undef, 'version for default package' );
505   is( $pm_info->version('simple'), '0.01', 'version for lower-case package' );
506   is( $pm_info->version('Simple'), undef, 'version for capitalized package' );
507   ok( $pm_info->is_indexable(), 'an indexable package is found' );
508   ok( $pm_info->is_indexable('simple'), 'the simple package is indexable' );
509   ok( !$pm_info->is_indexable('Simple'), 'the Simple package would not be indexed' );
515 package simple;
517 package Simple;
519 package SiMpLe;
524   is( $pm_info->name, 'Simple', 'found default package' );
525   is( $pm_info->version, '0.02', 'version for default package' );
526   is( $pm_info->version('simple'), '0.01', 'version for lower-case package' );
527   is( $pm_info->version('Simple'), '0.02', 'version for capitalized package' );
528   is( $pm_info->version('SiMpLe'), '0.03', 'version for mixed-case package' );
529   ok( $pm_info->is_indexable('simple'), 'the simple package is indexable' );
530   ok( $pm_info->is_indexable('Simple'), 'the Simple package is indexable' );
536 package ## hide from PAUSE
542   is( $pm_info->name, undef, 'no package names found' );
543   ok( !$pm_info->is_indexable('simple'), 'the simple package would not be indexed' );
544   ok( !$pm_info->is_indexable('Simple'), 'the Simple package would not be indexed' );
545   ok( !$pm_info->is_indexable(), 'no indexable package is found' );