[base]
          /    \
         /      \
[subclass A]  [subclass B]

##</code><code>##

my $object = A->new;
$object->someWeirdMethod;

##</code><code>##

my $object = B->new;
$object->someWeirdMethod;