File Coverage

blib/lib/Acme/ELLEDNERA/Utils.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	34	34	100.0

package Acme::ELLEDNERA::Utils;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.04';

use Exporter qw(import);
our @EXPORT_OK = qw( sum shuffle );
our %EXPORT_TAGS = ( all => [@EXPORT_OK] );


sub sum {
	my @valid_nums = grep { /\A-?\d+(?:\.\d+)?\z/ } @_;

	my $sum;
	for ( @valid_nums ) {
		$sum += $_;
	}

	$sum
}


sub shuffle {
	my @deck = @_;
	return unless @deck;

	my $i = @deck;
	while (--$i) {
		my $j = int rand ($i+1);
		@deck[$i, $j] = @deck[$j, $i];
	}

	@deck;
}

1; # End of Acme::ELLEDNERA::Utils

__END__