File Coverage

blib/lib/Games/Mastermind/Solver.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	4	4	100.0
condition	2	3	66.6
subroutine	6	6	100.0
pod	3	3	100.0
total	39	40	97.5

package Games::Mastermind::Solver;

use strict;
use warnings;
use base qw(Class::Accessor::Fast);

our $VERSION = '0.02';

__PACKAGE__->mk_ro_accessors( qw(game won) );

sub new {
    my( $class, $game ) = @_;
    my $self = $class->SUPER::new( { game => $game } );
    $self->reset;
    return $self;
}

sub move {
    my( $self, $guess ) = @_;
    return ( 1, undef, undef ) if $self->won;

    $guess ||= $self->guess;
    my $result = $self->game->play( @$guess );
    if( $result->[0] == $self->game->holes ) {
        $self->{won} = 1;
    } else {
        $self->check( $guess, $result );
    }

    return ( $self->won, $guess, $result );
}

sub reset {
    my( $self ) = @_;
    $self->game->reset;
    $self->{won} = 0;
}

1;

__END__