メソッドが呼ばれたときに同名のフィールドがあったらもしかしてって言いながら死ぬやつ

mosikasite.pl

package Mosikasite {
    sub new {
        my ($class) = @_;

        bless {}, $class;
    }

    sub AUTOLOAD {
        my ($self) = @_;
        my $method = (split '::', $AUTOLOAD)[-1];
        if (@_ == 1 && exists $self->{$method}) {
            die "もしかして：->{$method}";
        } else {
            die;
        }
    }
};

my $m = Mosikasite->new;
$m->{hoge} = 1;
$m->hoge;