package Object::Animal::Cattle;
use Pony::Object qw(Object::Animal::Cow
Object::Animal::Artiodactyls
Object::Animal::ICow
Object::Animal::ICattle);
has horns => 2;
private type => 'cattle';
private milkFactor => 10;
protected hurtCount => 0;
sub gore : Protected
{
my $this = shift;
$this->hurtCount++;
return $this->hurtCount;
}
1;