File Coverage

blib/lib/Math/Random/OO/Bootstrap.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	6	6	100.0
condition			n/a
subroutine	9	9	100.0
pod	3	3	100.0
total	50	50	100.0

use 5.006;
use strict;
use warnings;

package Math::Random::OO::Bootstrap;
# ABSTRACT: Generate random numbers with bootstrap resampling from a non-parametric distribution
our $VERSION = '0.22'; # VERSION

# Required modules
use Carp;
use Params::Validate 0.76 ':all';

# ISA
use base qw( Class::Accessor::Fast );


{
    my $param_spec = {
        data => { type => ARRAYREF },
        size => { type => SCALAR }
    };

    __PACKAGE__->mk_accessors( keys %$param_spec );
    #__PACKAGE__->mk_ro_accessors( keys %$param_spec );

    sub new {
        my $class = shift;
        my $self = bless {}, ref($class) ? ref($class) : $class;
        if ( @_ == 0 ) {
            croak 'Math::Random::OO::Bootstrap->new() requires an argument';
        }
        $self->data( ref $_[0] eq 'ARRAY' ? [ @{ $_[0] } ] : [@_] );
        $self->size( scalar @{ $self->data } );
        return $self;
    }
}


sub seed {
    my $self = shift;
    srand( $_[0] );
}


sub next {
    my ($self) = @_;
    my $rnd = int( rand( $self->size ) ); # index 0 to (size-1)
    return $self->data->[$rnd];
}

1;

__END__