well, you know, it seemed like a silly thing to do at the time.@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; }
In reply to Re: Funniest Variable/Subroutine names
by pdcawley
in thread Funniest Variable/Subroutine names
by lshatzer
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |