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