Animal.animal, Animal.Medical, Animal.Feeds, Animal.MammalDetail #### $a=Animal->new(%attribs); $a->feed(%feedinfo); $a->medical_checkup(%careinfo);