$ git clone git://github.com/ytnobody/Plass.git
$ cpanm ./Plass

my $cat = plass 
    meow => sub { print shift->voice."\n" },
    look => sub { print shift->profile->name. " looking ". shift. "\n" },
    voice => 'Meow...',
    profile => { name => "Kiki", age => 4 },
    surface => [ 'Black', 'Talkable' ];

$cat->meow; ### say "Meow..."

$cat->look( "you" ); ### say "Kiki looking you"

my $talkcat = $cat->plass( 
    voice => "I'm hungry...",
    look => sub { print shift->profile->name. " not looking ". shift. "\n" },
);
$talkcat->profile->name( "Jiji" );

$talkcat->meow; ### say "I'm hungry..."

$talkcat->look( "you" ); ### say "Jiji not looking you"

my $bird = plass
    fly => sub { print $_[0]->name. ' flew to '. $_[1]. "\n" };

$talkcat = $talkcat->mix( $bird );

$talkcat->fly( 'mountain' ); ### "Jiji flew to mountain.";

my $instance = plass key => $anyval, key2 => $anyval2 ... ;

my $instance = mix $plass_instance_1, $plass_instance_2, $plass_instance_3 ... ;

my $child = $parent->plass( key => $anyval, key2 => $anyval2 ... );

my $child = $parent->mix( $plass_instance1, $plass_instance2 ... );

my %trait = $instance->feature;

my $child = $parent->plass;

my %trait = $parent->feature;
my $child = plass %trait;