@ISA = 'Bloody Silly Thing To Do'; sub can't {...} sub won't {...} ... sub mustn't { my $target = shift; my $method = shift; no strict 'refs'; my $old_glob = \ $ {"${target}::"}{$method}; delete $ {"${target}::"}{$method}; *{"$target\::$method"} = *{$old_glob}{$_} for (qw/ SCALAR HASH ARRAY IO /); 1; }