package Dynamic;

use warnings;
use strict;

BEGIN {

    my %sub_info = (
        one     => 1,
        two     => 2,
        three   => 3,
        four    => 4,
        five    => 5,
    );

    no strict 'refs';

    for (keys %sub_info) {
        my $sub_name = $_; # Take a copy of the key, which is the sub name

        *$_ = sub {
            my ($self, $value) = @_;
            $self->{$sub_name} = $value if defined $value;
            return $self->{$sub_name} // $sub_info{$sub_name};
        };
    }
}

sub new {
    return bless {}, $_[0];
}

1;
__END__