/lib/SDL/Event.pm
http://github.com/PerlGameDev/SDL · Perl · 32 lines · 27 code · 5 blank · 0 comment · 0 complexity · ece3ec59d5c4a37eff20daf146d633f7 MD5 · raw file
- package SDL::Event;
- use strict;
- use warnings;
- use vars qw(@ISA @EXPORT @EXPORT_OK);
- require Exporter;
- require DynaLoader;
- use SDL::Constants ':SDL::Events';
- our @ISA = qw(Exporter DynaLoader);
- use SDL::Internal::Loader;
- internal_load_dlls(__PACKAGE__);
- our $VERSION = 2.548;
- bootstrap SDL::Event;
- use base 'Exporter';
- our @EXPORT = @{ $SDL::Constants::EXPORT_TAGS{'SDL::Events'} };
- our %EXPORT_TAGS = (
- all => \@EXPORT,
- type => $SDL::Constants::EXPORT_TAGS{'SDL::Events/type'},
- mask => $SDL::Constants::EXPORT_TAGS{'SDL::Events/mask'},
- action => $SDL::Constants::EXPORT_TAGS{'SDL::Events/action'},
- state => $SDL::Constants::EXPORT_TAGS{'SDL::Events/state'},
- hat => $SDL::Constants::EXPORT_TAGS{'SDL::Events/hat'},
- app => $SDL::Constants::EXPORT_TAGS{'SDL::Events/app'},
- button => $SDL::Constants::EXPORT_TAGS{'SDL::Events/button'},
- keysym => $SDL::Constants::EXPORT_TAGS{'SDL::Events/keysym'},
- keymod => $SDL::Constants::EXPORT_TAGS{'SDL::Events/keymod'}
- );
- 1;