#!/usr/local/bin/perl -w

use strict;
use Moose;

use Animal;

use Horse;

use Sheep;

use Mouse;

my $talking = Horse->new(name => 'Mr. Ed');

$talking->speak; # says "Mr. Ed goes neigh"

my $baab = Sheep->new(colour => 'white', name => 'Baab');

$baab->speak; # prints "Baab goes baaaah"

my $mickey = Mouse->new(name => 'Mickey');
$mickey->speak;