File Coverage

blib/lib/Math/RNG/Microsoft/Base.pm

Criterion	Covered	Total	%
statement	26	28	92.8
branch	3	6	50.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	37	42	88.1

package Math::RNG::Microsoft::Base;
$Math::RNG::Microsoft::Base::VERSION = '0.4.0';
use 5.006;
use strict;
use warnings;


use integer;

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

    if ( not scalar(@$deck) )
    {
        return [];
    }
    my @d = @$deck;

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

    return scalar( \@d );
}

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

    my $len    = scalar(@$deck);
    my $return = scalar( $obj->fresh_shuffle( scalar($deck) ) );
    if ($len)
    {
        if ( $return eq $deck )
        {
            die;
        }
        @$deck = @$return;
    }

    return $deck;
}


1;    # End of Math::RNG::Microsoft

__END__