File Coverage

blib/lib/Math/Partition/Rand.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	2	2	100.0
condition	2	4	50.0
subroutine	4	4	100.0
pod	2	2	100.0
total	33	35	94.2

package Math::Partition::Rand;
our $AUTHORITY = 'cpan:GENE';

# ABSTRACT: Random floating point additive partitions

our $VERSION = '0.0301';

use strict;
use warnings;



sub new {
    my $class = shift;
    my %args = @_;
    my $self = {
        top => $args{top} || 1,
        n   => $args{n}   || 2,
    };
    bless $self, $class;
    return $self;
}


sub choose {
    my $self = shift;

    my @distribution;

    my $label = 0;
    my $top   = $self->{top};
    my $n     = $self->{n};

    for my $i ( 1 .. $n ) {
        my $curr = rand($top);
        my $next = abs( $top - $curr );

        push @distribution, $i == $n ? $top : $next;

        $top = $curr;
        $label++;
    }

    return \@distribution;
}

1;

__END__