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.10';
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
|
