#!/usr/bin/perl
# race.pl - example script for MouseRace.pm

use MouseRace;
use strict; use warnings;

my $arena = new MouseRace(
    x          => 15,
    y          => 15,
    no_draw    => 0,
    dump_arena => 0,
    load_arena => 0
);

$arena->add_mouse( colour => "blue" );

# works with incorrect spelling as well :)
$arena->add_mouse( color => "red", solver => 'MouseRace::Random::solve' );
$arena->add_mouse( color => "green" );

$arena->run_mousy_run;