FM / Plugin

/usr/local/lib64/perl5/5.32/Template/Plugin/

/usr/local/lib64/perl5/5.32/Template/Plugin

Name	Size	Mode	Actions
Assert.pm	3507	0444	edit dl rm
Datafile.pm	4644	0444	edit dl rm
Date.pm	11472	0444	edit dl rm
Directory.pm	11160	0444	edit dl rm
Dumper.pm	3970	0444	edit dl rm
File.pm	11179	0444	edit dl rm
Filter.pm	9838	0444	edit dl rm
Format.pm	1797	0444	edit dl rm
HTML.pm	6032	0444	edit dl rm
Image.pm	11593	0444	edit dl rm
Iterator.pm	2001	0444	edit dl rm
List.pm	2744	0444	edit dl rm
Math.pm	4090	0444	edit dl rm
Pod.pm	1650	0444	edit dl rm
Procedural.pm	3681	0444	edit dl rm
Scalar.pm	3835	0444	edit dl rm
String.pm	18182	0444	edit dl rm
Table.pm	12681	0444	edit dl rm
URL.pm	5776	0444	edit dl rm
View.pm	2457	0444	edit dl rm
Wrap.pm	3192	0444	edit dl rm

Edit: /usr/local/lib64/perl5/5.32/Template/Plugin/Format.pm (1797B)

package Template::Plugin::Format;

use strict;
use warnings;
use base 'Template::Plugin';

our $VERSION = '3.106';

sub new {
    my ($class, $context, $format) = @_;;
    return defined $format
        ? make_formatter($format)
        : \&make_formatter;
}

sub make_formatter {
    my $format = shift // '%s';
    return sub {
        my @args = @_;
        push(@args, '') unless @args;
        return sprintf($format, @args);
    }
}

__END__

=head1 NAME

Template::Plugin::Format - Plugin to create formatting functions

=head1 SYNOPSIS

[% USE format %]
    [% commented = format('# %s') %]
    [% commented('The cat sat on the mat') %]

[% USE bold = format('<b>%s</b>') %]
    [% bold('Hello') %]

=head1 DESCRIPTION

The format plugin constructs sub-routines which format text according to
a C<printf()>-like format string.

=head1 AUTHOR

Andy Wardley E<lt>abw@wardley.orgE<gt> L<http://wardley.org/>

=head1 COPYRIGHT

This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=head1 SEE ALSO

L<Template::Plugin>

=cut

# Local Variables:
# mode: perl
# perl-indent-level: 4
# indent-tabs-mode: nil
# End:
#
# vim: expandtab shiftwidth=4:

#============================================================= -*-Perl-*- # # Template::Plugin::Format # # DESCRIPTION # # Simple Template Toolkit Plugin which creates formatting functions. # # AUTHOR # Andy Wardley # # COPYRIGHT # Copyright (C) 1996-2022 Andy Wardley. All Rights Reserved. # # This module is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. # #============================================================================ package Template::Plugin::Format; use strict; use warnings; use base 'Template::Plugin'; our $VERSION = '3.106'; sub new { my ($class, $context, $format) = @_;; return defined $format ? make_formatter($format) : \&make_formatter; } sub make_formatter { my $format = shift // '%s'; return sub { my @args = @_; push(@args, '') unless @args; return sprintf($format, @args); } } 1; __END__ =head1 NAME Template::Plugin::Format - Plugin to create formatting functions =head1 SYNOPSIS [% USE format %] [% commented = format('# %s') %] [% commented('The cat sat on the mat') %] [% USE bold = format('%s') %] [% bold('Hello') %] =head1 DESCRIPTION The format plugin constructs sub-routines which format text according to a C-like format string. =head1 AUTHOR Andy Wardley Eabw@wardley.orgE L =head1 COPYRIGHT Copyright (C) 1996-2022 Andy Wardley. All Rights Reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L =cut # Local Variables: # mode: perl # perl-indent-level: 4 # indent-tabs-mode: nil # End: # # vim: expandtab shiftwidth=4: