1*6fb12b70Safresh1package Devel::switchd_goto; 2*6fb12b70Safresh1package DB; 3*6fb12b70Safresh1sub DB { $^P |= 0x80; } 4*6fb12b70Safresh1sub goto { print "goto<$DB::sub>;" } 5*6fb12b70Safresh11; 6*6fb12b70Safresh1 7