File Coverage

blib/lib/Games/Sudoku/OO/Set/Row.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition	1	3	33.3
subroutine	4	4	100.0
pod	0	3	0.0
total	22	27	81.4

package Games::Sudoku::OO::Set::Row;
use Games::Sudoku::OO::Set;
@ISA = ("Games::Sudoku::OO::Set");


sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;
    my $self  = $class->SUPER::new(@_);
    bless ($self, $class);          # reconsecrate
    return $self;
}

sub setBackReference {
    my $self = shift;
    my $cell = shift;
    $cell->setRow($self);
}

sub toStr {
    my $self = shift;
    my $string = "";
    foreach my $cell (@{$self->{CELLS}}){
	$string .= $cell->toStr();
    }
    return $string;
}
1;