Lines Matching refs:sym
62 my($type, $sym, $cache_is_current, $oops);
108 foreach $sym (@names) { delete $imports{$sym} }
118 foreach $sym (@imports) {
119 if (!$export_cache->{$sym}) {
120 if ($sym =~ m/^\d/) {
121 $pkg->VERSION($sym); # inherit from UNIVERSAL
134 } elsif ($sym !~ s/^&// || !$export_cache->{$sym}) {
144 if (!$export_cache->{$sym}) {
147 qq["$sym" is not exported by the $pkg module\n];
175 foreach $sym (@imports) { push(@failed, $sym) if $fail_cache->{$sym} }
178 foreach $sym (@failed) {
180 Carp::carp(qq["$sym" is not implemented by the $pkg module ],
193 foreach $sym (@imports) {
195 (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
196 unless $sym =~ s/^(\W)//;
198 *{"${callpkg}::$sym"} =
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"} :
204 do { require Carp; Carp::croak("Can't export symbol: $type$sym") };