/usr/lib/perl5/pods/SDL/Mouse.pod is in libsdl-perl 2.540-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 | =pod
=head1 NAME
SDL::Mouse - SDL Bindings for the Mouse device
=head1 CATEGORY
Core, Mouse
=head1 CONSTANTS
The constants for SDL::Mouse belong to SDL::Events/SDL::Event, under the export tag of C<':state'>.
=head1 METHODS
=head2 warp_mouse
SDL::Mouse::warp_mouse( $x, $y );
Set the position of the mouse cursor (generates a mouse motion event).
Even if the mouse is warped to where it currently is, a mouse motion event is generated.
=head2 set_cursor
SDL::Mouse::set_cursor( $cursor_object );
Sets the currently active cursor to the specified one.
See L<SDL::Cursor> for details on cursor objects.
If the cursor is currently visible, the change will be immediately represented on the display.
C<set_cursor()> can be used to force cursor redraw, if this is desired for any reason.
=head2 get_cursor
my $cursor_object = SDL::Mouse::get_cursor;
Gets the currently active mouse cursor.
=head2 show_cursor
my $return = SDL::Mouse::show_cursor( $state );
Toggle whether or not the cursor is shown on the screen.
Passing C<SDL_ENABLE> displays the cursor and passing C<SDL_DISABLE> hides it.
The current state of the mouse cursor can be queried by passing C<SDL_QUERY>, either C<SDL_DISABLE> or C<SDL_ENABLE> will be returned.
use SDL;
use SDL::Mouse;
use SDL::Video;
use SDL::Events ':state'; #For the constants
SDL::init(SDL_INIT_VIDEO);
SDL::Video::set_video_mode(640, 480, 16, SDL_SWSURFACE);
printf("Cursor is %s\n", SDL::Mouse::show_cursor(SDL_QUERY) ? 'visible' : 'not visible');
sleep(3);
SDL::Mouse::show_cursor(SDL_DISABLE);
printf("Cursor is %s\n", SDL::Mouse::show_cursor(SDL_QUERY) ? 'visible' : 'not visible');
sleep(3);
SDL::Mouse::show_cursor(SDL_ENABLE);
printf("Cursor is %s\n", SDL::Mouse::show_cursor(SDL_QUERY) ? 'visible' : 'not visible');
sleep(3);
=head1 SEE ALSO
L<SDL::Cursor>
=head1 AUTHORS
See L<SDL/AUTHORS>.
=cut
|