Or you can create classes dynamically with Class::MOP::Class and Moose::Meta::Class

use 5.012;
use warnings;
use Class::MOP;

for (qw(foo bar baz)) {
    my $class = ucfirst($_);
    Class::MOP::Class->create(
        $class => (
            methods => {
                $_ => sub { say $class }
            }
        )
    );
}

Foo->foo;
Bar->bar;
Baz->baz;
[download]