[p5sagit/p5-mst-13.2.git] / lib / subs.pm

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;
Commit	Line	Data
a0d0e21e	1	package subs;
	2
	3	require 5.000;
	4
	5	$ExportLevel = 0;
	6
	7	sub import {
	8	my $callpack = caller;
	9	my $pack = shift;
	10	my @imports = @_;
	11	foreach $sym (@imports) {
	12	*{"${callpack}::$sym"} = \&{"${callpack}::$sym"};
	13	}
	14	};
	15
	16	1;