File Coverage

blib/lib/Data/Random/Weighted.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	26	27	96.3

package Data::Random::Weighted;


# ABSTRACT: get weighted random data


use strict;
use warnings;
use Exporter 'import';
our @EXPORT_OK = qw( randomizer );

sub randomizer {
    my $args = shift;
    my $total;
    $total += $_ for values %$args;
    my $weight;
    my $count = 0;
    for my $key( keys %$args ) {
        my $set = $args->{$key};
        for ( 1 .. $set ) {
            $weight->{$count++} = $key;
        }
    }
    return sub {
        my $rand = int(rand($total));
        return $weight->{$rand};
    }
}


1;

__END__