#!/usr/bin/perl -w
use strict;
# Use POEny!
use Acme::POE::Knee;
# Every Acme::POE::Knee race will require a set of arguments.
# There are defaults but it's just more fun to set these
# yourselves. We set a distance the ponies must run and of course
# we name our race ponies! You'll have to specify the maximum
# delay a pony can have before reaching the next stage.
# The lower the delay, the higher the chances are the pony will
# win the race.
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;