view release on metacpan or  search on metacpan

bin/pmarad  view on Meta::CPAN

        }
    }
}

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 ) {