@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;
}
[download]