view release on metacpan or  search on metacpan

tictactoe  view on Meta::CPAN

212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
        }
 
        if ($success) {
            $self->{win} = $player;
            $self->set_status;
            last;
        }
    }
}
 
sub update {
    my ($self, $i, $j, $val) = @_;
 
    $self->{board}->[$i][$j] = $val;
    $self->{squares}->[$i][$j]->set ($self->{pixmaps}->[$val], undef);
 
    $self->check_win;
}
 
sub set_status {
    my $self = shift;