#!/usr/bin/env perl

use v5.14;

package Pet::Mammal {
	sub new {
		my $class = shift;
		bless {@_}, $class;
	}
	sub name {
		my $self = shift;
		return $self->{name};
	}	
	sub jump {
		my $self = shift;
		say $self->name, " jumps!";
	}
}

package Pet::Dog {
	use base "Pet::Mammal";
	sub sound {
		my $self = shift;
		say $self->name, " says woof!";
	}
}

package Pet::Cat {
	use base "Pet::Mammal";
	sub sound {
		my $self = shift;
		say $self->name, " says meow!";
	}
}

my $fido  = Pet::Dog->new(name => "Fido");
$fido->jump;
$fido->sound;

my $felix = Pet::Cat->new(name => "Felix");
$felix->jump;
$felix->sound;