File Coverage

blib/lib/Data/Gimei/Random.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	4	0.0
total	28	34	82.3

package Data::Gimei::Random;

# Pseudo random number generator(PRNG)
# Park & Miller comp.lang.c FAQ list Question 13.15

use warnings;
use v5.22;

use Class::Tiny qw (
  seed
);

sub BUILDARGS {
    #my $class = shift;
    #my %args = @_;
    my ( $class, %args ) = @_;

    $args{'seed'} //= time();

    return \%args;
}

sub set_seed {
    my ( $self, $seed ) = @_;
    $self->seed( $seed );
}

sub next_int {
    my ( $self, $size ) = @_;

    my $rnum = (48_271 * $self->seed) % (2 << 31 -1);
    $self->seed( $rnum );

    return $rnum % $size;
}

sub sample {
    my ( $self, $aref ) = @_;

    my $index = $self->next_int($#$aref + 1);

    return $aref->[$index];
}
1;