185009909Smillertpackage Devel::switchd; 285009909Smillertuse strict; BEGIN { } # use strict; BEGIN { ... } to incite [perl #21890] 3850e2753Smillertsub import { print "import<@_>;" } 4*898184e3Ssthensub unimport { print "unimport<@_>;" } 585009909Smillertpackage DB; 6850e2753Smillertsub DB { print "DB<", join(",", caller), ">;" } 7850e2753Smillertsub sub { print "sub<$DB::sub>;"; goto &$DB::sub } 885009909Smillert1; 985009909Smillert 10