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