$r = Dog->create_subclass("Rottweiler"); # eq Dog::Rottweiler
$r->add_method(bark => sub { print "roar" });