/usr/local/CPAN/UML-Sequence/Die.pm

• package Die
  • new
  • roll
• EOF

    package Die;
#    use strict; use warnings;

    sub new {
        my $class      = shift;
        my $sides      = shift || 6; # make the default 6
        my $self       = {};
        $self->{SIDES} = $sides;

        return bless  $self, $class;
    }

    sub roll {
        my $self          = shift;
        my $random_number = rand;

        $self->{VALUE}    = int ($random_number * $self->{SIDES}) + 1;
        return $self->{VALUE};
    }

    1;