File Coverage

lib/Games/Nonogram/Loader/File.pm

Criterion	Covered	Total	%
statement	6	20	30.0
branch	0	8	0.0
condition			n/a
subroutine	2	3	66.6
pod	1	1	100.0
total	9	32	28.1

package Games::Nonogram::Loader::File;

use strict;
use warnings;

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

  my ($height, $width, @lines);
  open my $fh, '<', $file or die "Cannot open $file";
  while(<$fh>) {
    chomp;
    next if /^#/;
    if ( $_ eq '' ) {
      unless ( $height ) {
        $height = scalar @lines;
        next;
      }
      last; # should be the end of the column clues
    }
    push @lines, $_;
  }
  $width = (scalar @lines) - $height;

  return ($height, $width, @lines);
}

1;

__END__