File Coverage

blib/lib/SDL/Events.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::Events;
2 8     8   2942 use strict;
  8         17  
  8         312  
3 8     8   55 use warnings;
  8         13  
  8         367  
4 8     8   46 use vars qw(@ISA @EXPORT @EXPORT_OK);
  8         16  
  8         1020  
5             require Exporter;
6             require DynaLoader;
7 8     8   48 use SDL::Constants ':SDL::Events';
  8         18  
  8         12582  
8             our @ISA = qw(Exporter DynaLoader);
9              
10 8     8   62 use SDL::Internal::Loader;
  8         15  
  8         606  
11             internal_load_dlls(__PACKAGE__);
12              
13             bootstrap SDL::Events;
14              
15 8     8   268 use base 'Exporter';
  8         17  
  8         1811  
16             our @EXPORT = @{ $SDL::Constants::EXPORT_TAGS{'SDL::Events'} };
17             our %EXPORT_TAGS = (
18             all => \@EXPORT,
19             type => $SDL::Constants::EXPORT_TAGS{'SDL::Events/type'},
20             mask => $SDL::Constants::EXPORT_TAGS{'SDL::Events/mask'},
21             action => $SDL::Constants::EXPORT_TAGS{'SDL::Events/action'},
22             state => $SDL::Constants::EXPORT_TAGS{'SDL::Events/state'},
23             hat => $SDL::Constants::EXPORT_TAGS{'SDL::Events/hat'},
24             app => $SDL::Constants::EXPORT_TAGS{'SDL::Events/app'},
25             button => $SDL::Constants::EXPORT_TAGS{'SDL::Events/button'},
26             keysym => $SDL::Constants::EXPORT_TAGS{'SDL::Events/keysym'},
27             keymod => $SDL::Constants::EXPORT_TAGS{'SDL::Events/keymod'}
28             );
29              
30             1;