Searched refs:callpkg (Results 1 - 12 of 12) sorted by relevance
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Exporter/ |
H A D | Heavy.pm | 61 my($pkg, $callpkg, @imports) = @_; 190 warn "Importing into $callpkg from $pkg: ", 195 (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) 198 *{"${callpkg}::$sym"} = 213 my $callpkg = caller($level); 214 $pkg->export($callpkg, @_);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | AutoLoader.pm | 121 my $callpkg = caller; 129 *{ $callpkg . '::AUTOLOAD' } = \&AUTOLOAD 145 (my $calldir = $callpkg) =~ s#::#/#g; 171 my $callpkg = caller; 174 my $symname = $callpkg . '::AUTOLOAD';
|
H A D | FileHandle.pm | 71 my $callpkg = caller; 73 Exporter::export($pkg, $callpkg, @_); 81 Exporter::export('Fcntl', $callpkg);
|
H A D | Exporter.pm | 31 my $callpkg = caller($ExportLevel); 34 *{$callpkg."::import"} = \&import; 40 return export $pkg, $callpkg, @_ 61 return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; 65 *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
|
H A D | autouse.pm | 32 my $callpkg = caller(0); 33 print "autouse called from $callpkg\n" if $autouse::DEBUG; 44 $closure_import_func = "${callpkg}::$func";
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | configpm | 81 my $callpkg = caller(0); 85 *{$callpkg.'::'.$func} = \&{$func}; 88 *{"$callpkg\::Config"} = \%%Config if $export_Config;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/lib/IO/ |
H A D | Socket.pm | 35 my $callpkg = caller; 36 Exporter::export 'Socket', $callpkg, @_;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/ |
H A D | DosGlob.pm | 412 my $callpkg = ($sym =~ s/^GLOBAL_//s ? 'CORE::GLOBAL' : caller(0)); 413 *{$callpkg.'::'.$sym} = \&{$pkg.'::'.$sym} if $sym eq 'glob';
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/lib/Encode/ |
H A D | Guess.pm | 24 my $callpkg = caller; 27 *{"$callpkg\::$item"} = \&{"$item"};
|
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/PerlGcc/config/5.8.4/5.11/i386/ |
H A D | Config.pm | 18 my $callpkg = caller(0); 22 *{$callpkg.'::'.$func} = \&{$func}; 25 *{"$callpkg\::Config"} = \%Config if $export_Config;
|
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/PerlGcc/config/5.8.4/5.11/sparc/ |
H A D | Config.pm | 18 my $callpkg = caller(0); 22 *{$callpkg.'::'.$func} = \&{$func}; 25 *{"$callpkg\::Config"} = \%Config if $export_Config;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/ |
H A D | More.pm | 44 my $callpkg = caller($level); 45 $pkg->export($callpkg, @_);
|
Completed in 56 milliseconds