{
        package A;

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

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

            if ($attrs{$m}) {
                print "OK: $AUTOLOAD";
            }
            else {
                print "Failure: $AUTOLOAD";
            }
        }
    }
    {
        package B;

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

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

            if ($attrs{$m}) {
                print "OK: $AUTOLOAD";
            }
            else {
                print "Failure: $AUTOLOAD";
            }
        }
    }