File Coverage

lib/Games/Nonogram/Line.pm

Criterion	Covered	Total	%
statement	59	73	80.8
branch	20	32	62.5
condition			n/a
subroutine	13	15	86.6
pod	12	12	100.0
total	104	132	78.7

package Games::Nonogram::Line;

use strict;
use warnings;
use base qw( Games::Nonogram::Base );

sub new {
  my ($class, %options) = @_;

  my $size = $options{size} or die "size unknown";

  my $self = bless {
    size    => $size,
    vec     => '',
    dirty   => '',
    is_done => 0,
  }, $class;

  $self->clear;

  $self;
}

sub size { shift->{size} }

sub value {
  my ($self, $id, $value) = @_;

  if ( defined $value ) {
    my $prev = vec( $self->{vec}, $id, 2 );
    if ( $prev != $value ) {
      vec( $self->{vec}, $id, 2 ) = $value;
      $self->is_dirty( $id );
    }
  }
  else {
    $value = vec( $self->{vec}, $id, 2 );
    $value > 1 ? -1 : $value;
  }
}

sub on {
  my $self = shift;

  if ( @_ == 1 ) {
    $self->value( shift, 1 );
  }
  else {
    $self->value( $_ => 1 ) for ( $self->range( @_ ) );
  }
}

sub off {
  my $self = shift;

  if ( @_ == 1 ) {
    $self->value( shift, 0 );
  }
  else {
    $self->value( $_ => 0 ) for ( $self->range( @_ ) );
  }
}

sub clear {
  my ($self, $id) = @_;

  if ( defined $id ) {
    vec( $self->{vec}, $id, 2 ) = -1;
  }
  else {
    vec( $self->{vec}, $_, 2 ) = -1 for ( 1 .. $self->size );
  }
  $self->{is_done} = 0;
}

sub is_done {
  my $self = shift;

  return if $self->is_dirty;

  unless ( $self->{is_done} ) {
    foreach my $ct ( 1 .. $self->size ) {
      return if $self->value( $ct ) == -1;
    }
    $self->{is_done} = 1;
  }
  $self->{is_done};
}

sub is_dirty {
  my ($self, $id) = @_;

  if ( defined $id ) {
    vec( $self->{dirty}, $id, 1 ) = 1;
  }
  else {
    return $self->{dirty} ne '' ? 1 : 0;
  }
}

sub dirty_items {
  my $self = shift;

  my @dirty;
  foreach my $ct ( 1 .. $self->size ) {
    push @dirty, $ct if vec( $self->{dirty}, $ct, 1 );
  }
  $self->{dirty} = '';

  return @dirty;
}

sub clone {
  my $self = shift;

  my %clone = %{ $self };
  bless \%clone, ref $self;
}

sub as_vec  {
  my $self = shift;

  if ( @_ ) {
    $self->{vec} = shift;
    foreach my $ct ( 1 .. $self->size ) { $self->is_dirty( $ct ) }
    $self->{is_done} = 0;
  }
  $self->{vec};
}

sub as_string {
  my $self = shift;

  my $str = '';
  for my $ct ( 1 .. $self->size ) {
    my $value = $self->value( $ct );
    if ( $value == 0 ) {
      $str .= '.';
    }
    elsif ( $value == 1 ) {
      $str .= 'X';
    }
    else {
      $str .= '_';
    }
  }
  return $str;
}

1;

__END__