package Foo::Bar;
    use base 'Foo';

    my %attrs = map { $_ => 1 } qw/ hah heh /;

    AUTOLOAD {
        my ($m) = our $AUTOLOAD  =~ /.*::(.*)/s;
        return if $m eq 'DESTROY';

        if ($attrs{$m}) {
            print "OK: $AUTOLOAD";
        }
        else {
            my $self = shift;
            if ($self->can('SUPER::AUTOLOAD')) {
                return $self->${\"SUPER::$m"}(@_);
            }
            else {
                print "Failure: $AUTOLOAD";
            }
        }
    }