package B;

sub can { 
    my($proto, $method) = @_;
    return if $method eq 'a3';
    $proto->UNIVERSAL::can($method);
}
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks is a proud member of the The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.