Select Code to Download

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

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

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