File Coverage

blib/lib/SDL/Event.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package SDL::Event;
2 7     7   2011 use strict;
  7         12  
  7         186  
3 7     7   33 use warnings;
  7         12  
  7         200  
4 7     7   34 use vars qw(@ISA @EXPORT @EXPORT_OK);
  7         12  
  7         420  
5             require Exporter;
6             require DynaLoader;
7 7     7   37 use SDL::Constants ':SDL::Events';
  7         11  
  7         6402  
8             our @ISA = qw(Exporter DynaLoader);
9              
10 7     7   52 use SDL::Internal::Loader;
  7         21  
  7         477  
11             internal_load_dlls(__PACKAGE__);
12              
13             our $VERSION = 2.548;
14              
15             bootstrap SDL::Event;
16              
17 7     7   42 use base 'Exporter';
  7         12  
  7         1409  
18             our @EXPORT = @{ $SDL::Constants::EXPORT_TAGS{'SDL::Events'} };
19             our %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              
32             1;