File Coverage

blib/lib/Games/Sudoku/Component/Table/Item.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	6	10	60.0
condition	4	9	44.4
subroutine	10	10	100.0
pod	7	7	100.0
total	68	77	88.3

package Games::Sudoku::Component::Table::Item;
{
  use strict;
  use warnings;
  use Carp;

  our $VERSION = '0.01';

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

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

    croak "Row is undefined"     unless defined $options{row};
    croak "Col is undefined"     unless defined $options{col};
    croak "Allowed is undefined" unless defined $options{allowed};
    croak "Allowed should be array_ref"
      if ref $options{allowed} ne 'ARRAY';

    $this->{row}      = $options{row};
    $this->{col}      = $options{col};
    $this->{allowed}  = $options{allowed};
    $this->{value}    = $options{value};

    $this;
  }

  sub row      { $_[0]->{row} }
  sub col      { $_[0]->{col} }
  sub value    { $_[0]->{value} }
  sub allowed  { @{ $_[0]->{allowed} } }

  sub random_value {
    my $this = shift;

    my @allowed = @{ $this->{allowed} };
    my $value = splice(@allowed, int(rand(@allowed)), 1);

    $this->{allowed}  = \@allowed;
    $this->{value} = $value;

    $value;
  }

  sub as_string {
    my $this = shift;

    my $row     = $this->{row}   || 0;
    my $col     = $this->{col}   || 0;
    my $value   = $this->{value} || 0;
    my @allowed = @{ $this->{allowed} };

    sprintf('(%d, %d): %d (allowed: %s)',
      $row, $col, $value, join(', ', @allowed),
    );
  }
}

1;
__END__