Lines Matching full:package

11 # parse package names
15 #   package => expected package names
19   name => 'package NAME',
20   package => [ 'Simple' ],
22 package Simple;
26   name => 'package NAME::SUBNAME',
27   package => [ 'Simple::Edward' ],
29 package Simple::Edward;
33   name => 'package NAME::SUBNAME::',
34   package => [ 'Simple::Edward::' ],
36 package Simple::Edward::;
40   name => "package NAME'SUBNAME",
41   package => [ "Simple'Edward" ],
43 package Simple'Edward;
47   name => "package NAME'SUBNAME::",
48   package => [ "Simple'Edward::" ],
50 package Simple'Edward::;
54   name => 'package NAME::::SUBNAME',
55   package => [ 'Simple::::Edward' ],
57 package Simple::::Edward;
61   name => 'package ::NAME::SUBNAME',
62   package => [ '::Simple::Edward' ],
64 package ::Simple::Edward;
68   name => 'package NAME:SUBNAME (fail)',
69   package => [ 'main' ],
71 package Simple:Edward;
75   name => "package NAME' (fail)",
76   package => [ 'main' ],
78 package Simple';
82   name => "package NAME::SUBNAME' (fail)",
83   package => [ 'main' ],
85 package Simple::Edward';
89   name => "package NAME''SUBNAME (fail)",
90   package => [ 'main' ],
92 package Simple''Edward;
96   name => 'package NAME-SUBNAME (fail)',
97   package => [ 'main' ],
99 package Simple-Edward;
103   name => 'no assumption of package merely if its $VERSION is referenced',
104   package => [ 'Simple' ],
106 package Simple;
112   package => [ '_private', 'main' ],
115 package _private;
122   package => [ '_private', 'main' ],
125 package _private;
132   package => [ 'Simple::Edward' ],
139   package => [ 'main', 'Simple::Edward' ],
155     my $expected_name = $test_case->{package};
173                "case $test_case->{name}: correct package names (expected '" . join(', ', @$expected_name) . "')" )