xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/Devel/switchd.pm (revision 0:68f95e015346)

package Devel::switchd;
use strict; BEGIN { } # use strict; BEGIN { ... } to incite [perl #21890]
package DB;
sub DB { print join(",", caller), ";" }
1;