File Coverage

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

Criterion	Covered	Total	%
statement	11	17	64.7
branch			n/a
condition	1	3	33.3
subroutine	3	4	75.0
pod	0	3	0.0
total	15	27	55.5

package Games::Sudoku::OO::Set::Column;
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->setColumn($self);
}

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