File Coverage

blib/lib/Games/ABC_Path/MicrosoftRand.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	39	39	100.0

package Games::ABC_Path::MicrosoftRand;
$Games::ABC_Path::MicrosoftRand::VERSION = '0.4.2';
use 5.006;
use strict;
use warnings;


use integer;

use Class::XSAccessor {
    constructor => 'new',
    accessors   => [qw(seed)],
};

sub rand
{
    my $self = shift;
    $self->seed( ( $self->seed() * 214013 + 2531011 ) & (0x7FFF_FFFF) );
    return ( ( $self->seed >> 16 ) & 0x7fff );
}

sub max_rand
{
    my ( $self, $max ) = @_;

    return ( $self->rand() % $max );
}

sub shuffle
{
    my ( $self, $deck ) = @_;

    if (@$deck)
    {
        my $i = @$deck;
        while ( --$i )
        {
            my $j = $self->max_rand( $i + 1 );
            @$deck[ $i, $j ] = @$deck[ $j, $i ];
        }
    }

    return $deck;
}



1;    # End of Games::ABC_Path::MicrosoftRand

__END__