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: $m";
        }
        else {
            print "Failure: $m";
        }
    }