package AA;

use base 'BB';

for my $meth (qw(print flop frizzle)) {
    *{ $meth } = sub {
        my ($self, $extra, @args) = @_;
        my $meth = "SUPER::$meth";
        $self->$meth(@args);
    };
}

1;