# UNTESTED!
# Instead of undef &{B::A}
delete $B::A::{CODE};