[p5sagit/p5-mst-13.2.git] / t / lib / Devel / switchd.pm

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