/usr/lib/perl5/OIS.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 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 78 79 80 81 82 83 84 85 86 | package OIS;
use 5.006;
use strict;
use warnings;
# use all files under OIS/ - probably not a good idea
use OIS::Axis;
use OIS::EventArg;
use OIS::Exception;
use OIS::InputManager;
use OIS::JoyStick;
use OIS::JoyStickEvent;
use OIS::JoyStickListener;
use OIS::JoyStickState;
use OIS::Keyboard;
use OIS::KeyEvent;
use OIS::KeyListener;
use OIS::Mouse;
use OIS::MouseEvent;
use OIS::MouseListener;
use OIS::MouseState;
use OIS::Object;
require Exporter;
require DynaLoader;
our @ISA = qw(Exporter DynaLoader);
our $VERSION = '0.05';
sub dl_load_flags { $^O eq 'darwin' ? 0x00 : 0x01 }
__PACKAGE__->bootstrap($VERSION);
our %EXPORT_TAGS = (
'Type' => [
qw(
OISUnknown
OISKeyboard
OISMouse
OISJoyStick
OISTablet
)
],
'ComponentType' => [
qw(
OIS_Unknown
OIS_Button
OIS_Axis
OIS_Slider
OIS_POV
)
],
);
$EXPORT_TAGS{'all'} = [ map { @{ $EXPORT_TAGS{$_} } } keys %EXPORT_TAGS ];
our @EXPORT_OK = @{ $EXPORT_TAGS{'all'} };
our @EXPORT = ();
1;
__END__
=head1 NAME
OIS - Perl binding for the OIS C++ input framework
=head1 SYNOPSIS
use OIS;
# ...
=head1 DESCRIPTION
For now, see README.txt.
=head1 AUTHOR
Scott Lanning E<lt>slanning@cpan.orgE<gt>
=cut
|