[perl5.git] / t / lib / Devel / switchd_goto.pm

package Devel::switchd_goto;
package DB;
sub DB { $^P |= 0x80; }
sub goto { print "goto<$DB::sub>;" }
1;
Commit	Line	Data
261cbad1 TC	1	package Devel::switchd_goto;
	2	package DB;
	3	sub DB { $^P \|= 0x80; }
	4	sub goto { print "goto<$DB::sub>;" }
	5	1;
	6