File Coverage

blib/lib/SDL/GFX.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::GFX;
2 7     7   3117 use strict;
  7         8  
  7         171  
3 7     7   21 use warnings;
  7         6  
  7         134  
4 7     7   20 use vars qw(@ISA @EXPORT @EXPORT_OK);
  7         6  
  7         312  
5             require Exporter;
6             require DynaLoader;
7 7     7   22 use SDL::Constants ':SDL::GFX';
  7         9  
  7         617  
8             our @ISA = qw(Exporter DynaLoader);
9              
10 7     7   27 use SDL::Internal::Loader;
  7         8  
  7         336  
11             internal_load_dlls(__PACKAGE__);
12              
13             bootstrap SDL::GFX;
14              
15 7     7   21 use base 'Exporter';
  7         8  
  7         625  
16             our @EXPORT = @{ $SDL::Constants::EXPORT_TAGS{'SDL::GFX'} };
17             our %EXPORT_TAGS = (
18             all => \@EXPORT,
19             init => $SDL::Constants::EXPORT_TAGS{'SDL::GFX/init'}
20             );
21              
22             1;