in reply to Perl Modules with 2 or more classes

Yes. See Simple Module Tutorial, package 
package Foo; 
use Any::Moose;
has 'x' => (is => 'rw', isa => 'Int');
has 'y' => (is => 'rw', isa => 'Int');
no Any::Moose;
package Bar;
use Any::Moose;
has 'x' => (is => 'rw', isa => 'Int');
has 'y' => (is => 'rw', isa => 'Int');
has 'z' => (is => 'rw', isa => 'Int');
no Any::Moose;

[download]

Replies are listed 'Best First'.
Re^2: Perl Modules with 2 or more classes
by zwon (Abbot) on Oct 19, 2011 at 14:30 UTC

    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]
[reply]
[d/l]

In Section Seekers of Perl Wisdom