dynamic.pl

use strict;
use warnings;

package Dynamic {
    sub new {
        bless {}, shift;
    }

    sub dump {
        my ($self) = @_;
        for my $key (keys %{$self}) {
            print "$key : @{[$self->{$key}]}\n";
        }
    }
    sub AUTOLOAD {
        my ($self, $value) = @_;
        my $key = our $AUTOLOAD;
        $self->{$key} = $value if defined $value;
        return $self->{$key};
    }
}

my $dynamic = Dynamic->new;

$dynamic->nyan("mew");
$dynamic->wan("bow");

$dynamic->dump;

# 出力結果
# Dynamic::wan : bow
# Dynamic::nyan : mew