view release on metacpan or  search on metacpan

bin/pmarad  view on Meta::CPAN

248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
        }
    }
}
 
sub move_winch {
    my ($app) = @_;
    $app->{dirty} = 1;
    return NEXT_EVENT;
}
 
sub update {
    my ($app) = @_;
    if ( $app->{dirty} ) {
        touchwin;
        move 0, 0;
        clrtobot;
 
        my $score = $app->{game}->score;
        if ( $score->[0] >= VICTORY ) {
            victory(1);
        } elsif ( $score->[1] >= VICTORY ) {