view release on metacpan or  search on metacpan

bin/demo.pl  view on Meta::CPAN

    my $black = SDL::Color->new(
        -r => 0,
        -g => 0,
        -b => 0,
    );

    $self->app->fill($screen_rect, $black);
}

sub update_gesture {
    my $self = shift;
    return unless $self->is_gesturing;

    # add the current point to our list of points for this gesture
    push @{ $self->{gesture} }, [@_];
}

sub end_gesture {
    my $self = shift;