use Class::AutoFactory;

my $rover = new Dog; 
# Is a subclass of Canine 
# Is subclass of Mammal 
# Is a subclass of Animal.