File Coverage

blib/lib/Games/Sudoku/Component/Controller/Status.pm

Criterion	Covered	Total	%
statement	45	46	97.8
branch	1	2	50.0
condition	5	7	71.4
subroutine	18	18	100.0
pod	15	15	100.0
total	84	88	95.4

package Games::Sudoku::Component::Controller::Status;
{
  use strict;
  use warnings;
  use Carp;

  our $VERSION = '0.02';

  my $S_NULL   = 0;
  my $S_OK     = 1;
  my $S_REWIND = 2;
  my $S_SOLVED = 4;
  my $S_GIVEUP = 8;

  sub new {
    my $class = shift;
    my $this  = bless {}, (ref $class || $class);

    my %options = ref $_[0] ? %{ $_[0] } : @_;

    $this->{status}  = $S_NULL;
    $this->{changed} = 0;

    $this->{rewind_max} = $options{rewind_max} || 9;
    $this->{retry_max}  = $options{retry_max}  || 3;

    $this->{rewind} = 0;
    $this->{retry}  = 0;

    $this;
  }

  sub clear  {
    my $this = shift;

    $this->{status} = $S_NULL;
    $this->{rewind} = 0;
    $this->{retry}  = 0;
  }

  sub turn_to_ok     { $_[0]->{status} = $S_OK;     $_[0]->{changed} = 1; }
  sub turn_to_rewind { $_[0]->{status} = $S_REWIND; $_[0]->{changed} = 1; }
  sub turn_to_solved { $_[0]->{status} = $S_SOLVED; $_[0]->{changed} = 1; }
  sub turn_to_giveup { $_[0]->{status} = $S_GIVEUP; $_[0]->{changed} = 1; }

  sub is_null   { ($_[0]->{status} == $S_NULL); }
  sub is_ok     { ($_[0]->{status} == $S_OK); }
  sub is_rewind { ($_[0]->{status} == $S_REWIND); }
  sub is_solved { ($_[0]->{status} == $S_SOLVED); }
  sub is_giveup { ($_[0]->{status} == $S_GIVEUP); }

  sub is_changed  { my $prev = $_[0]->{changed}; $_[0]->{changed} = 0; $prev; }
  sub is_finished { $_[0]->{status} & ($S_GIVEUP|$S_SOLVED) }

  sub can_rewind {
    my $this = shift;
    ($this->{rewind}++ < $this->{rewind_max});
  }

  sub can_retry {
    my $this = shift;
    $this->{rewind} = 0;
    ($this->{retry}++ < $this->{retry_max});
  }
}

1;
__END__