File Coverage

blib/lib/SDL/Rect.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::Rect;
2 24     24   68565 use strict;
  24         52  
  24         938  
3 24     24   132 use warnings;
  24         48  
  24         848  
4 24     24   169 use vars qw(@ISA @EXPORT @EXPORT_OK);
  24         47  
  24         1920  
5             require Exporter;
6             require DynaLoader;
7 24     24   7938 use SDL::Constants ':SDL::Video';
  24         53  
  24         9651  
8             our @ISA = qw(Exporter DynaLoader);
9              
10 24     24   2201 use SDL::Internal::Loader;
  24         53  
  24         1991  
11             internal_load_dlls(__PACKAGE__);
12              
13             bootstrap SDL::Rect;
14              
15 24     24   140 use base 'Exporter';
  24         47  
  24         4984  
16             our @EXPORT = @{ $SDL::Constants::EXPORT_TAGS{'SDL::Video'} };
17             our %EXPORT_TAGS = (
18             all => \@EXPORT,
19             color => $SDL::Constants::EXPORT_TAGS{'SDL::Video/color'},
20             surface => $SDL::Constants::EXPORT_TAGS{'SDL::Video/surface'},
21             video => $SDL::Constants::EXPORT_TAGS{'SDL::Video/video'},
22             overlay => $SDL::Constants::EXPORT_TAGS{'SDL::Video/overlay'},
23             grab => $SDL::Constants::EXPORT_TAGS{'SDL::Video/grab'},
24             palette => $SDL::Constants::EXPORT_TAGS{'SDL::Video/palette'},
25             gl => $SDL::Constants::EXPORT_TAGS{'SDL::Video/gl'}
26             );
27              
28             1;