The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Graphics::Raylib::Mouse - Deal with the Mouse

VERSION

version 0.004

SYNOPSIS

    use Graphics::Raylib::Mouse;

    $mouse = Graphics::Raylib::Mouse->new; # More concise this way
    if ($mouse->pressed_left) {
        printf "(%d, %d)\n", $mouse->x, $mouse->y;
    }

METHODS AND ARGUMENTS

new()

Optional. Returns a Graphics::Raylib::Mouse object that saves you typing that prefix all the time.

pressed_left(), pressed_middle(), pressed_right()

Detects if mouse button has been pressed once

down_left(), down_middle(), down_right()

Detects if mouse button is down

released_left(), released_middle(), released_right()

Detects if mouse button has been released

up_left(), up_middle(), up_right()

Detects if mouse button is up

my ($x, $y) = position; or position($x, $y)

Retrieves cursor position if not in void context. Moves cursor to position if coordinate argument supplied.

wheelmove

Wheel Y-axis movement

GIT REPOSITORY

http://github.com/athreef/Graphics-Raylib

SEE ALSO

Graphics-Raylib

Graphics-Raylib-XS

AUTHOR

Ahmad Fatoum <athreef@cpan.org>, http://a3f.at

COPYRIGHT AND LICENSE

Copyright (C) 2017 Ahmad Fatoum

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.