Not a direct answer though:

package B;

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

--
Tatsuhiko Miyagawa
miyagawa@cpan.org