/usr/local/CPAN/Games-Sudoku-OO/Games/Sudoku/OO/Set/Row.pm

• package Games::Sudoku::OO::Set::Row
  • new
  • setBackReference
  • toStr
• EOF

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;