Lines Matching refs:pkg

121 	my $pkg;
126 	    $pkg = "main";
129 	    $pkg = (@_ > 1) ? $_[1] : caller;
131 	$name = $pkg . "::" . $name;
145     my $pkg = shift;
149     unless ($pkg =~ /^main::.*::$/) {
150         $pkg = "main$pkg"	if	$pkg =~ /^::/;
151         $pkg = "main::$pkg"	unless	$pkg =~ /^main::/;
152         $pkg .= '::'		unless	$pkg =~ /::$/;
155     my($stem, $leaf) = $pkg =~ m/(.*::)(\w+::)$/;
165         undef *{$pkg . $name};