File Coverage

blib/lib/SDL/Image.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 28 28 100.0


line stmt bran cond sub pod time code
1             package SDL::Image;
2 13     13   2810 use strict;
  13         29  
  13         376  
3 13     13   65 use warnings;
  13         25  
  13         390  
4 13     13   67 use vars qw(@ISA @EXPORT @EXPORT_OK);
  13         25  
  13         922  
5             require Exporter;
6             require DynaLoader;
7 13     13   92 use SDL::Constants ':SDL::Image';
  13         32  
  13         1504  
8 13     13   1944 use SDL::Surface;
  13         53  
  13         3315  
9             our @ISA = qw(Exporter DynaLoader);
10              
11 13     13   107 use SDL::Internal::Loader;
  13         30  
  13         1091  
12             internal_load_dlls(__PACKAGE__);
13              
14             our $VERSION = 2.548;
15              
16             bootstrap SDL::Image;
17              
18 13     13   100 use base 'Exporter';
  13         31  
  13         2278  
19             our @EXPORT = @{ $SDL::Constants::EXPORT_TAGS{'SDL::Image'} };
20             our %EXPORT_TAGS = (
21             all => \@EXPORT,
22             init => $SDL::Constants::EXPORT_TAGS{'SDL::Video/init'}
23             );
24              
25             1;