/usr/share/perl5/Text/MicroMason/Sprintf.pm is in libtext-micromason-perl 2.16-1.
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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 | package Text::MicroMason::Sprintf;
use strict;
######################################################################
# ( $type, $value ) = $mason->lex_token();
sub lex_token {
/ (.*) /xcogs ? ( expr => do { my $x = $1; $x =~ s/\|/\\|/g; "sprintf(qq|$x|, \@_)" } ) : ()
}
######################################################################
1;
__END__
######################################################################
=head1 NAME
Text::MicroMason::Sprintf - Formatted Interpolation Engine
=head1 SYNOPSIS
Instead of using this class directly, pass its name to be mixed in:
use Text::MicroMason;
my $mason = Text::MicroMason::Base->new( -Sprintf );
Templates can be written using Perl's sprintf interpolation syntax:
$coderef = $mason->compile( text => 'Hello %s' );
print $coderef->( 'World' );
=head1 DESCRIPTION
Text::MicroMason::Sprintf uses Perl's sprintf formatting syntax for templating.
Of course you don't need this module for simple cases of interpolation, but if you're already using the MicroMason framework to process template files from disk, this module should allow you to make your simplest templates run even faster.
Perl's sprintf function supports traditional Unix-style sprintf() formatting as well as a number of very useful extensions. Consult L<perlfuc/sprintf> for more details.
=head1 SEE ALSO
For an overview of this distribution, see L<Text::MicroMason>.
This is a subclass intended for use with L<Text::MicroMason::Base>.
For distribution, installation, support, copyright and license
information, see L<Text::MicroMason::Docs::ReadMe>.
=cut
|