view release on metacpan or  search on metacpan

examples/demo_race.pl  view on Meta::CPAN

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

# Use POEny!
use Acme::POE::Knee;

        
my $pony = new Acme::POE::Knee (
	dist        => 20,
    ponies  => {
        'dngor'     => 5,
        'Abigail'   => 5.2, 
        'Co-Kane'   => 5.4, 
        'MJD'       => 5.6,
        'acme'      => 5.8, 
    },
);

# start the race
$pony->race( );

exit;