File Coverage

blib/lib/Data/Random/Weighted.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition	1	2	50.0
subroutine	6	6	100.0
pod	0	3	0.0
total	31	35	88.5

package Data::Random::Weighted;


# ABSTRACT: get weighted random data


use strict;
use warnings;

sub new {
    my $class = shift;
    my $args  = shift || {};
    my $self  = bless {}, $class;
    $self->{'roller'} = $self->randomizer($args);
    return $self;
}

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

sub roll { &{ shift->{'roller'} }() }

1;

__END__