File Coverage

blib/lib/SDL/Surface.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::Surface;
2 26     26   10923 use strict;
  26         56  
  26         755  
3 26     26   132 use warnings;
  26         43  
  26         1048  
4 26     26   147 use vars qw(@ISA @EXPORT @EXPORT_OK);
  26         55  
  26         1705  
5             require Exporter;
6             require DynaLoader;
7 26     26   177 use SDL::Constants ':SDL::Video';
  26         60  
  26         5370  
8 26     26   9934 use SDL::PixelFormat;
  26         95  
  26         10736  
9             our @ISA = qw(Exporter DynaLoader);
10              
11 26     26   211 use SDL::Internal::Loader;
  26         59  
  26         1997  
12             internal_load_dlls(__PACKAGE__);
13              
14             our $VERSION = 2.548;
15              
16             bootstrap SDL::Surface;
17              
18 26     26   169 use base 'Exporter';
  26         60  
  26         4895  
19             our @EXPORT = @{ $SDL::Constants::EXPORT_TAGS{'SDL::Video'} };
20             our %EXPORT_TAGS = (
21             all => \@EXPORT,
22             color => $SDL::Constants::EXPORT_TAGS{'SDL::Video/color'},
23             surface => $SDL::Constants::EXPORT_TAGS{'SDL::Video/surface'},
24             video => $SDL::Constants::EXPORT_TAGS{'SDL::Video/video'},
25             overlay => $SDL::Constants::EXPORT_TAGS{'SDL::Video/overlay'},
26             grab => $SDL::Constants::EXPORT_TAGS{'SDL::Video/grab'},
27             palette => $SDL::Constants::EXPORT_TAGS{'SDL::Video/palette'},
28             gl => $SDL::Constants::EXPORT_TAGS{'SDL::Video/gl'}
29             );
30              
31             1;