1package SDL::Event; 2use strict; 3use warnings; 4use vars qw(@ISA @EXPORT @EXPORT_OK); 5require Exporter; 6require DynaLoader; 7use SDL::Constants ':SDL::Events'; 8our @ISA = qw(Exporter DynaLoader); 9 10use SDL::Internal::Loader; 11internal_load_dlls(__PACKAGE__); 12 13our $VERSION = 2.548; 14 15bootstrap SDL::Event; 16 17use base 'Exporter'; 18our @EXPORT = @{ $SDL::Constants::EXPORT_TAGS{'SDL::Events'} }; 19our %EXPORT_TAGS = ( 20 all => \@EXPORT, 21 type => $SDL::Constants::EXPORT_TAGS{'SDL::Events/type'}, 22 mask => $SDL::Constants::EXPORT_TAGS{'SDL::Events/mask'}, 23 action => $SDL::Constants::EXPORT_TAGS{'SDL::Events/action'}, 24 state => $SDL::Constants::EXPORT_TAGS{'SDL::Events/state'}, 25 hat => $SDL::Constants::EXPORT_TAGS{'SDL::Events/hat'}, 26 app => $SDL::Constants::EXPORT_TAGS{'SDL::Events/app'}, 27 button => $SDL::Constants::EXPORT_TAGS{'SDL::Events/button'}, 28 keysym => $SDL::Constants::EXPORT_TAGS{'SDL::Events/keysym'}, 29 keymod => $SDL::Constants::EXPORT_TAGS{'SDL::Events/keymod'} 30); 31 321; 33