File Coverage

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

Criterion	Covered	Total	%
statement	28	42	66.6
branch	2	16	12.5
condition	2	11	18.1
subroutine	5	6	83.3
pod	1	1	100.0
total	38	76	50.0

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

  our $VERSION = '0.02';

  use Games::Sudoku::Component::Table::Item;

  sub load {
    my $pkg = shift;

    my $str;

    if (@_ == 1 and !ref $_[0]) {
      $str = shift;
    }
    elsif (@_ == 1 and ref $_[0] eq 'SCALAR') {
      $str = ${ $_[0] };
    }
    else {
      my %options = ref $_[0] ? %{ $_[0] } : @_;

      if (my $file = $options{filename} || $options{file}) {
        $str = $pkg->_load_from_file($file);
      }
      elsif ($options{scalar}) {
        $str = $options{scalar};
      }
      elsif ($options{scalarref}) {
        $str = ${ $options{scalarref} };
      }
    }

    $str ||= '';

    my @cells = ();
    my ($row, $col) = (0,0);
    foreach my $line (split(/\n+/, $str)) {
      $line =~ s/\r//g;
      $row++;
      $col = 0;
      foreach my $value (split(/\s+/, $line)) {
        $col++;
        $value = 0 unless $value =~ /^[0-9]+$/;
        push @cells, Games::Sudoku::Component::Table::Item->new(
          row   => $row,
          col   => $col,
          allowed => [],
          value => $value,
        );
      }
    }
    @cells;
  }

  sub _load_from_file {
    my ($pkg, $file) = @_;

    open my $fh, '<', $file or croak "failed to open $file: $!";
    read $fh, my $str, (-s $file);
    close $fh;

    $str;
  }
}

1;
__END__