File Coverage

lib/Games/Nonogram/Base.pm

Criterion	Covered	Total	%
statement	16	32	50.0
branch	5	18	27.7
condition	2	5	40.0
subroutine	5	9	55.5
pod	7	7	100.0
total	35	71	49.3

package Games::Nonogram::Base;

use strict;
use warnings;

my ($Conf, $Debug, $Stash, $Log);

sub conf  { shift; @_ ? $Conf  = shift : $Conf; }
sub debug { shift; @_ ? $Debug = shift : $Debug; }
sub stash { $Stash ||= {} }

sub clear_stash { $Stash = {} }

sub set_logfile {
  my ($self, $file) = @_;

  if ( $file ) {
    eval {
      require IO::File;
      $Log = IO::File->new( $file, 'w' ) or die "$file cannot open";
      $Log->autoflush;
    };
  }
  else {
    $Log->close if $Log;
    undef $Log;
  }
}

sub log {
  my ($self, @message) = @_;

  return unless $Debug;

  my ($package, $file, $line) = caller;

  print STDERR @message, "\n";

  if ( $Log ) {
    print $Log @message, " at line $line in $package\n";
  }
}

sub range {
  my ($self, %options) = @_;

  my $from   = $options{from} or die 'from is missing';
  my $to     = $options{to};
  my $length = $options{length};

  $to = $from + $length - 1 if !$to && $length;

  return ( $from .. $to );
}

1;

__END__