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";