t/lib/Devel/switchd.pm

   1 package Devel::switchd;
   2 use strict; BEGIN { } # use strict; BEGIN { ... } to incite [perl #21890]
   3 sub import { print "import<@_>;" }
   4 package DB;
   5 sub DB { print "DB<", join(",", caller), ">;" }
   6 sub sub { print "sub<$DB::sub>;"; goto &$DB::sub }
   7 1;
   8