File Coverage

lib/Games/Nonogram/CommandLine.pm

Criterion	Covered	Total	%
statement	12	44	27.2
branch	0	18	0.0
condition	0	13	0.0
subroutine	4	7	57.1
pod			n/a
total	16	82	19.5

package Games::Nonogram::CommandLine;

use strict;
use warnings;
use Getopt::Long;
use Games::Nonogram::Grid;

sub bootstrap {
  my $class = shift;

  my %options;
  GetOptions(
    'dir=s'      => \$options{dir},
    'check_only' => \$options{check_only},
    'debug'      => \$options{debug},
    'verbose'    => \$options{verbose},
  );

  my @files = @ARGV;
  push @files, $class->_files_from_dir( $options{dir} ) if $options{dir};

  foreach my $file ( @files ) {
    $class->_solve( $file, \%options );
  }
}

sub _files_from_dir {
  my ($class, $dir) = @_;

  $dir .= '/' unless $dir =~ m{[/\\]$};
  $dir .= '*';

  my @dirs = grep { /^[^\.]/ && -f } glob( $dir );
}

sub _solve {
  my ($class, $file, $options) = @_;

  return unless $file && -f $file;

  my $grid = Games::Nonogram::Grid->new_from( file => $file );

  my $debug      = $options->{debug} || 0;
  my $verbose    = $options->{verbose} || $debug;
  my $check_only = $options->{check_only} || 0;

  $grid->debug( $debug );

  while ( $grid->is_dirty ) {
    $grid->update;
    print $grid->as_string,"\n" if $verbose;
  }

  if ( $grid->is_done or $grid->has_answers ) {
    my @answers = $grid->answers;
    unless ( $check_only ) {
      print "\n$file: Answers\n", join "\n", @answers;
    }
    elsif ( @answers > 1 ) {
      print "$file is ambiguous.\n";
    }
    else {
      print "$file is ok.\n";
    }
  }
  else {
    unless ( $check_only ) {
      print "\n$file: Failed\n";
      print $grid->as_string,"\n";
    }
    else {
      print "$file seems broken.\n";
    }
  }
}

1;

__END__