Creating your little-animal-farm AI

class

class Farm::AI::Example {
    has Str $.player;

    method trade(%players, @events) {
        if Bool.roll {
            return {
                type => "trade",
                with => "stock",
                selling => { sheep => 1 },
                buying  => { rabbit => 6 },
            }
        }
        else {
            return;
        }
    }

    method accept(%players, @events, $trader) {
        return Bool.roll;
    }
}

command-line

$ perl6 farm.pl Example Example
$ perl6 farm.pl Example OtherPlayer ThirdPlayer