File Coverage

blib/lib/SDLx/SFont.pm
Criterion Covered Total %
statement 20 21 95.2
branch n/a
condition n/a
subroutine 7 8 87.5
pod 0 2 0.0
total 27 31 87.1


line stmt bran cond sub pod time code
1             package SDLx::SFont;
2 2     2   1530 use strict;
  2         4  
  2         45  
3 2     2   10 use warnings;
  2         4  
  2         54  
4 2     2   425 use SDL::Image;
  2         3  
  2         80  
5 2     2   9 use vars qw(@ISA @EXPORT @EXPORT_OK);
  2         3  
  2         139  
6             require Exporter;
7             require DynaLoader;
8 2     2   13 use SDL::Constants ':SDL::TTF';
  2         4  
  2         297  
9             our @ISA = qw(Exporter DynaLoader SDL::Surface);
10              
11 2     2   15 use base 'Exporter';
  2         5  
  2         468  
12             our @EXPORT = ('SDL_TEXTWIDTH');
13              
14             our $VERSION = 2.548;
15              
16             sub SDL_TEXTWIDTH {
17 0     0 0 0 return SDLx::SFont::TextWidth( join( '', @_ ) );
18             }
19              
20             sub print_text { #print is a horrible name for this
21 2     2 0 1753 my ( $surf, $x, $y, @text ) = @_;
22 2         71 SDLx::SFont::print_string( $surf, $x, $y, join( '', @text ) );
23             }
24              
25             bootstrap SDLx::SFont;
26              
27             1;
28