/usr/lib/perl5/SDLx/SFont.pm is in libsdl-perl 2.540-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | package SDLx::SFont;
use strict;
use warnings;
use SDL::Image;
use vars qw(@ISA @EXPORT @EXPORT_OK);
require Exporter;
require DynaLoader;
use SDL::Constants ':SDL::TTF';
our @ISA = qw(Exporter DynaLoader SDL::Surface);
use base 'Exporter';
our @EXPORT = ('SDL_TEXTWIDTH');
sub SDL_TEXTWIDTH {
return SDLx::SFont::TextWidth( join( '', @_ ) );
}
sub print_text { #print is a horrible name for this
my ( $surf, $x, $y, @text ) = @_;
SDLx::SFont::print_string( $surf, $x, $y, join( '', @text ) );
}
bootstrap SDLx::SFont;
1;
|