File Coverage

blib/lib/Math/Random/OO/UniformInt.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	6	6	100.0
condition			n/a
subroutine	9	9	100.0
pod	3	3	100.0
total	53	53	100.0

use 5.006;
use strict;
use warnings;

package Math::Random::OO::UniformInt;
# ABSTRACT: Generates random integers with uniform probability
our $VERSION = '0.22'; # VERSION

# Required modules
use Carp;
use Params::Validate ':all';

# ISA
use base qw( Class::Accessor::Fast );


{
    my $param_spec = {
        low  => { type => SCALAR },
        high => { type => SCALAR }
    };

    __PACKAGE__->mk_accessors( keys %$param_spec );
    #__PACKAGE__->mk_ro_accessors( keys %$param_spec );

    sub new {
        my $class = shift;
        my $self = bless {}, ref($class) ? ref($class) : $class;
        if ( @_ > 1 ) {
            my ( $low, $high ) = sort { $a <=> $b } @_[ 0, 1 ]; # DWIM
            $self->low( int($low) );
            $self->high( int($high) );
        }
        elsif ( @_ == 1 ) {
            $self->low(0);
            $self->high( int( $_[0] ) );
        }
        else {
            $self->low(0);
            $self->high(1);
        }
        return $self;
    }
}


sub seed {
    my $self = shift;
    srand( $_[0] );
}


sub next {
    my ($self) = @_;
    my $rnd = int( rand( $self->high - $self->low + 1 ) ) + $self->low;
    return $rnd;
}

1;

__END__