use warnings;
use strict;
use feature 'say';

use lib '.';

use Dynamic;

my $dyn = Dynamic->new;

say "Manual calls";

say $dyn->one;
say $dyn->two;

# Or even

say "Stringified calls";

for (qw(one two three four five)) {
    if ($_ eq 'three') {
        # Update the value of the 'three' method
        $dyn->three(99);
    }
    printf "sub $_: %d\n", $dyn->$_();
}