#!usr/bin/perl
use strict; use warnings;
use MyClass;
use Role::Tiny();

foreach my $foo ( 1 .. 2 ) {
    my $module = $foo % 2 ? 'Odd' : 'Even';
    my $class = Role::Tiny->create_class_with_roles( 'MyClass', $module ); 
    my $o = $class->new();
    $o->bar( $foo );
}

__END__