File Coverage

blib/lib/Algorithm/Numerical/Shuffle.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	6	6	100.0
condition	7	9	77.7
subroutine	6	6	100.0
pod	0	1	0.0
total	41	44	93.1

package Algorithm::Numerical::Shuffle;

use 5.006;

use strict;
use warnings;
no  warnings 'syntax';
use Exporter ();

our @ISA       = qw /Exporter/;
our @EXPORT    = qw //;
our @EXPORT_OK = qw /shuffle/;

our $VERSION   = '2009110301';

sub shuffle {
    return @_ if !@_ || ref $_ [0] eq 'ARRAY' && !@{$_ [0]};
    my $array = @_ == 1 && ref $_ [0] eq 'ARRAY' ? shift : [@_];
    for (my $i = @$array; -- $i;) {
        my $r = int rand ($i + 1);
       ($array -> [$i], $array -> [$r]) = ($array -> [$r], $array -> [$i]);
    }
    wantarray ? @$array : $array;
}


__END__