Convert op/read.t to use test.pl and make it stricture compliant.

[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;