File Coverage

blib/lib/BettingStrategy/MonteCarlo.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	6	6	100.0
condition			n/a
subroutine	9	9	100.0
pod	0	4	0.0
total	47	51	92.1

package BettingStrategy::MonteCarlo;
use 5.008001;
use strict;
use warnings;
use version; our $VERSION = version->declare("v0.1.0");
use Moo;

has array => (
    is      => 'ro',
    default => sub { +[1, 2, 3] }
);

has magnification => (
    is      => 'ro',
    default => 2,
    isa     => sub {
        die 'invalid magnification'   unless $_[0];
        die 'magnification is 2 or 3' unless ($_[0] == 2 or $_[0] == 3);
    }
);

sub bet {
    my $self = shift;

    die 'finished' if $self->is_finished;
    return $self->array->[0] + $self->array->[-1];
}

sub lost {
    my $self = shift;

    die 'finished' if $self->is_finished;
    push @{$self->array}, $self->bet;
    return;
}

sub won {
    my $self = shift;

    die 'finished' if $self->is_finished;
    for (2 .. $self->magnification) {
        shift @{$self->array};
        pop @{$self->array};
    }
    return;
}

sub is_finished { scalar @{shift->array} <= 1 }

1;
__END__