/usr/lib/perl5/OIS/Mouse.pm is in libois-perl 0.05-3build1.
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 | package OIS::Mouse;
use strict;
use warnings;
require Exporter;
use OIS::Object;
our @ISA = qw(OIS::Object Exporter);
our %EXPORT_TAGS = (
'MouseButtonID' => [
qw(
MB_Left
MB_Right
MB_Middle
MB_Button3
MB_Button4
MB_Button5
MB_Button6
MB_Button7
),
],
);
$EXPORT_TAGS{'all'} = [ map { @{ $EXPORT_TAGS{$_} } } keys %EXPORT_TAGS ];
our @EXPORT_OK = @{ $EXPORT_TAGS{'all'} };
our @EXPORT = ();
1;
|