home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
RISC DISC 2
/
RISC_DISC_2.iso
/
pd_share
/
utilities
/
cli
/
perl
/
!Perl
/
Lib
/
pm
/
subs
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1994-10-18
|
228 b
|
17 lines
package subs;
require 5.000;
$ExportLevel = 0;
sub import {
my $callpack = caller;
my $pack = shift;
my @imports = @_;
foreach $sym (@imports) {
*{"${callpack}::$sym"} = \&{"${callpack}::$sym"};
}
};
1;