OIS - Perl binding for the OIS C++ input framework

  use OIS;
  # ...

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__