File Coverage

blib/lib/Data/RandomPerson/Choice.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition	2	2	100.0
subroutine	7	7	100.0
pod	5	5	100.0
total	38	38	100.0

package Data::RandomPerson::Choice;

use strict;
use warnings;

sub new {
    my ($class) = @_;

    return bless {}, $class;
}

sub add {
    my ( $self, $value, $count ) = @_;

    $count ||= 1;

    push @{ $self->{data} }, $value foreach ( 1 .. $count );
    $self->{size} += $count;
}

sub add_list {
    my ( $self, @list ) = @_;

    push @{ $self->{data} }, @list;
    $self->{size} += scalar(@list);
}

sub size {
    my ($self) = @_;

    return $self->{size};
}

sub pick {
    my ($self) = @_;

    die "No data has been added to the list" unless $self->{size};

    return $self->{data}[ int( rand( $self->{size} ) ) ];
}

1;

__END__