caller
file: examples/Barramm2.pm1: package Barramm2; 2: 3: sub import { 4: my $package=shift; 5: my @params=@_; 6: my $caller=caller(); 7: print "In import: $package, called from $caller with params: ".join(',',@params)."\n"; 8: } 9: 1;
file: examples/023_import.pl 1: use rlib '.'; 2: use Barramm2 qw(all clip clap); 3: print "ok\n";
~/examples$ perl 023_import.pl In import: Barramm2, called from main with params: all,clip,clap ok