File Coverage

blib/lib/Games/Sudoku/Component/Result.pm

Criterion	Covered	Total	%
statement	25	29	86.2
branch	3	4	75.0
condition	5	11	45.4
subroutine	9	9	100.0
pod	3	3	100.0
total	45	56	80.3

package Games::Sudoku::Component::Result;
{
  use strict;
  use warnings;
  use Carp;

  our $VERSION = '0.01';

  use overload
    '0+'  => \&result,
    '""'  => \&result,
    '<=>' => sub { $_[0]->result <=> $_[1] },
    'cmp' => sub { $_[0]->result cmp $_[1] };

  sub new {
    my $class = shift;
    my $this  = bless {}, (ref $class || $class);

    if (@_ == 1) {
      if (ref $_[0] eq 'HASH') {
        my %options = %{ $_[0] };
        $this->{result} = $options{result} || 0;
        $this->{reason} = $options{reason} || '';
      }
      else {
        $this->{result} = $_[0];
      }
    }
    else {
      my %options = @_;
      $this->{result} = $options{result} || 0;
      $this->{reason} = $options{reason} || '';
    }

    $this;
  }

  sub result { $_[0]->{result} }
  sub reason { $_[0]->{reason} }
}

1;
__END__