Lines Matching refs:pkg
30 my ($pkg, $exports, $cache) = @_;
33 my $ok = \@{"${pkg}::EXPORT_OK"};
61 my($pkg, $callpkg, @imports) = @_;
63 my($exports, $export_cache) = (\@{"${pkg}::EXPORT"},
64 $Exporter::Cache{$pkg} ||= {});
68 _rebuild_cache ($pkg, $exports, $export_cache);
73 my $tagsref = \%{"${pkg}::EXPORT_TAGS"};
90 warn qq["$spec" is not defined in %${pkg}::EXPORT_TAGS];
121 $pkg->VERSION($sym); # inherit from UNIVERSAL
140 _rebuild_cache ($pkg, $exports, $export_cache);
147 qq["$sym" is not exported by the $pkg module\n];
162 my($fail, $fail_cache) = (\@{"${pkg}::EXPORT_FAIL"},
163 $Exporter::FailCache{$pkg} ||= {});
171 warn "${pkg}::EXPORT_FAIL cached: @expanded" if $Exporter::Verbose;
177 @failed = $pkg->export_fail(@failed);
180 Carp::carp(qq["$sym" is not implemented by the $pkg module ],
190 warn "Importing into $callpkg from $pkg: ",
195 (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
199 $type eq '&' ? \&{"${pkg}::$sym"} :
200 $type eq '$' ? \${"${pkg}::$sym"} :
201 $type eq '@' ? \@{"${pkg}::$sym"} :
202 $type eq '%' ? \%{"${pkg}::$sym"} :
203 $type eq '*' ? *{"${pkg}::$sym"} :
210 my $pkg = shift;
214 $pkg->export($callpkg, @_);
220 my($pkg, $var, $syms) = @_;
222 my $export_tags = \%{"${pkg}::EXPORT_TAGS"};
223 push(@{"${pkg}::$var"},
230 Carp::carp(join(", ", @nontag)." are not tags of $pkg");
236 my $pkg = ref $self || $self;
237 return ${pkg}->VERSION($wanted);