Select Code to Download

    sub rollDX { rand(shift->{dx}); }

    sub new { # this was named RNG
            my $class = shift;
...
            return bless $self, $class;
    }

    sub roll {
            my ($self, $dxx) = shift;

    sub roll {
            my ($self, $dxx) = @_;

    package HollyGameAI::RNG;
    use strict;
...
            return $roll_dispatch->{$dxx}->();
    }