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

package Devel::switchd;
use strict; BEGIN { } # use strict; BEGIN { ... } to incite [perl #21890]
package DB;
sub DB { print join(",", caller), ";" }
1;
Commit	Line	Data
3e4c85f8	1	package Devel::switchd;
54f45c29	2	use strict; BEGIN { } # use strict; BEGIN { ... } to incite [perl #21890]
	3	package DB;
	4	sub DB { print join(",", caller), ";" }
	5	1;
	6