package B;
use base 'A';
use Carp;
use strict;

sub a3 {
    croak
        sprintf q[Can't locate object method "a3" via package "%s"], 
        ref shift;
}