Basic Callbacks with Prima

study-prima-mouse-interaction.pl

use strict;
use warnings;
use Prima qw(Application);

my $wDisplay = Prima::MainWindow-> create(
    text => 'Mouse Test',
    onMouseDown => sub {
        print "onMouseDown got args [", join('], [', @_), "]\n";
    },
    onMouseMove => sub {
        print "onMouseMove got args [", join('], [', @_), "]\n";
    },
    onMouseUp => sub {
        print "onMouseUp got args [", join('], [', @_), "]\n";
    },
    onMouseWheel => sub {
        print "onMouseWheel got args [", join('], [', @_), "]\n";
    },
);

run Prima;