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 Eslanning@cpan.orgE =cut