Lines Matching refs:main
55 package main;
131 like( $ret[0], qr/\$ = &main::check_context/,
190 my $main = () = grep ( m!^_<!, keys %main:: );
191 is( $dbf, $main, 'DB::files() should pick up filenames from %main::' );
205 my $file = (grep { m|^_<.+\.pm| } keys %main:: )[0];
224 local *baz = *{ "main::_<baz" };
253 'main::foo' => 'foo:1-4',
268 'main::foo' => 'foo:1-4',
291 'main::foo' => 'foo:1-4',
313 'main::foo' => 'foo:11-12',
323 '... should resolve unqualified package name to main::' );
359 'main::foo' => 'foo:1-3',
437 'main::foo' => 'foo:1-3',