File Coverage

blib/lib/SDL/GFX/Primitives.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::Primitives;
2 12     12   1911 use strict;
  12         24  
  12         323  
3 12     12   59 use warnings;
  12         21  
  12         365  
4 12     12   62 use vars qw(@ISA @EXPORT @EXPORT_OK);
  12         80  
  12         748  
5             require Exporter;
6             require DynaLoader;
7 12     12   106 use SDL::Constants ':SDL::GFX';
  12         33  
  12         2436  
8             our @ISA = qw(Exporter DynaLoader);
9              
10 12     12   92 use SDL::Internal::Loader;
  12         31  
  12         947  
11             internal_load_dlls(__PACKAGE__);
12              
13             our $VERSION = 2.548;
14              
15             bootstrap SDL::GFX::Primitives;
16              
17 12     12   79 use base 'Exporter';
  12         33  
  12         2055  
18             our @EXPORT = @{ $SDL::Constants::EXPORT_TAGS{'SDL::GFX'} };
19             our %EXPORT_TAGS = (
20             all => \@EXPORT,
21             init => $SDL::Constants::EXPORT_TAGS{'SDL::GFX/init'}
22             );
23              
24             1;