File Coverage

blib/lib/Test/RandomCheck/PRNG.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch	3	4	75.0
condition			n/a
subroutine	5	5	100.0
pod	0	3	0.0
total	20	24	83.3

package Test::RandomCheck::PRNG;
use strict;
use warnings;

sub new { $_[0] }

sub next_rand { rand() }

sub next_int {
    my $self = shift;
    my ($min, $max) = @_ == 2 ? @_ : (0, @_);
    ($min, $max) = ($max, $min) if $min > $max;
    int($self->next_rand * ($max - $min + 1)) + $min;
}

1;
__END__