lib/subs.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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;