xref: /openbsd-src/gnu/usr.bin/perl/t/lib/Devel/switchd_goto.pm (revision c90a81c56dcebd6a1b73fe4aff9b03385b8e63b3)

package Devel::switchd_goto;
package DB;
sub DB { $^P |= 0x80; }
sub goto { print "goto<$DB::sub>;" }
1;