Lines Matching refs:pkg
31 $ref = qualify_to_ref $name, $pkg;
120 my $pkg;
125 $pkg = "main";
128 $pkg = (@_ > 1) ? $_[1] : caller;
130 $name = $pkg . "::" . $name;
143 my $pkg = shift;
147 unless ($pkg =~ /^main::.*::$/) {
148 $pkg = "main$pkg" if $pkg =~ /^::/;
149 $pkg = "main::$pkg" unless $pkg =~ /^main::/;
150 $pkg .= '::' unless $pkg =~ /::$/;
153 my($stem, $leaf) = $pkg =~ m/(.*::)(\w+::)$/;
162 undef *{$pkg . $name};