File Coverage

blib/lib/Random/Set.pm

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

package Random::Set;

use strict;
use warnings;

use Class::Utils qw(set_params);
use Error::Pure qw(err);

our $VERSION = 0.07;

# Constructor.
sub new {
	my ($class, @params) = @_;

	# Create object.
	my $self = bless {}, $class;

	# Precision.
	$self->{'precision'} = 100;

	# Set.
	$self->{'set'} = [];

	# Process parameters.
	set_params($self, @params);

	# Check set.
	my $full = 0;
	foreach my $set_ar (@{$self->{'set'}}) {
		$full += $set_ar->[0];
	}
	if ($full != 1) {
		err 'Bad set sum. Must be 1.';
	}

	# Create set.
	$self->{'_set'} = [];
	foreach my $set_ar (@{$self->{'set'}}) {
		push @{$self->{'_set'}}, ($set_ar->[1])
			x ($self->{'precision'} * $set_ar->[0]);
	}

	return $self;
}

# Get random result.
sub get {
	my $self = shift;
	my $index = int(rand(@{$self->{'_set'}}));
	return $self->{'_set'}->[$index];
}

1;

__END__