my $factory = AnimalFoodFactory->new;
You don't seem to be using $factory afterwards.
In reply to Re: OO: Factory vs. "Seed" (?) pattern by gaal in thread OO: Factory vs. "Seed" (?) pattern by water