## limit the disabling of strict refs to this scope { ## let us do symbolic referencing no strict 'refs' sub import { ## get the caller once my $pkg = caller; for(qw/ sub1 sub2 /) { ## don't over-write existing subs *{"$pkg\::$_"} = \&$_ unless defined &{"$pkg\::$_"}; } } }