File Coverage

blib/lib/Games/Sudoku/Component.pm

Criterion	Covered	Total	%
statement	28	35	80.0
branch	1	2	50.0
condition	2	6	33.3
subroutine	9	12	75.0
pod	8	8	100.0
total	48	63	76.1

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

  our $VERSION = '0.02';

  use Games::Sudoku::Component::Controller;

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

    $this->{ctrl} = Games::Sudoku::Component::Controller->new(@_);

    $this;
  }

  sub generate {
    my $this = shift;

    my %options = ref $_[0] ? %{ $_[0] } : @_;

    my $size    = $this->{ctrl}->table->size;
    my $blanks  = $options{blanks} || ($size ** 2) * 0.75;

    $this->{ctrl}->solve;
    $this->{ctrl}->make_blank($blanks);
  }

  sub load {
    my $this = shift;

    $this->{ctrl}->load(@_);
  }

  sub solve {
    my $this = shift;

    $this->{ctrl}->solve;
  }

  sub is_solved {
    my $this = shift;

    $this->{ctrl}->status->is_solved;
  }

  sub clear {
    my $this = shift;

    $this->{ctrl}->clear;
  }

  sub as_string {
    my $this = shift;

    $this->{ctrl}->table->as_string(@_);
  }

  sub as_HTML {
    my $this = shift;

    $this->{ctrl}->table->as_HTML(@_);
  }
}

1;
__END__