package MyClass;
use Moo;
use Moo::Role();

sub BUILD {
    my ( $self, $args ) = @_;

    my $module = $args->{'num'} % 2 ? 'Odd' : 'Even';
    warn "$args->{'num'} $self loading $module";

    Moo::Role->apply_roles_to_object( $self, $module);

    return $self;
};

sub baz {
    return 'qux';
}

1;