d1 ISA base
d2 ISA base

##</code><code>##

use Class::MethodMaker
[ new => -singleton=>'new' ];

##</code><code>##

my $a = d1->new()
my $b = d2->new()