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), ">;" } |
6 | sub sub { print "sub<$DB::sub>;"; goto &$DB::sub } | |
54f45c29 | 7 | 1; |
8 |