#! /usr/bin/perl

use warnings ;
use MyModel ;
use newModel ;

my $m = MyModel->new() ;
Class::Trait->apply( $m, newModel ) ; # polymorphic stuff here :)

$m->test() ;
$m->newTest() ;