lib/subs.pm

   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;