#!/usr/bin/perl -w
use strict;

# polymorphism without inheritance

my @objects = (
    {
      name => 'sheep',
      speak => sub { print "baaah"; }
    },
    {
      name => 'dog',
      speak => sub {print "woof";}
    },
    {
      name => 'mouse',
      speak => sub {print "squeak (almost silently)" ;}
    },
    {
      name => 'fish',
      speak => sub { print ".oO()" }
    }
);

for (@objects) {
    print "a  $_->{name} goes ";
    &{$_->{speak}};
    print "\n"
}
__END__
a  sheep goes baaah
a  dog goes woof
a  mouse goes squeak (almost silently)
a  fish goes .oO()