golden hour

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

File/Folder	Size	Actions
Assert.pm	3.42 KB
Datafile.pm	4.54 KB
Date.pm	11.2 KB
Directory.pm	10.9 KB
Dumper.pm	3.88 KB
File.pm	10.92 KB
Filter.pm	9.61 KB
Format.pm	1.75 KB
HTML.pm	5.89 KB
Image.pm	11.32 KB
Iterator.pm	1.95 KB
List.pm	2.68 KB
Math.pm	3.99 KB
Pod.pm	1.61 KB
Procedural.pm	3.59 KB
Scalar.pm	3.75 KB
String.pm	17.76 KB
Table.pm	12.38 KB
URL.pm	5.64 KB
View.pm	2.4 KB
Wrap.pm	3.12 KB

Edit: Format.pm

#============================================================= -*-Perl-*-
#
# Template::Plugin::Format
#
# DESCRIPTION
#
#   Simple Template Toolkit Plugin which creates formatting functions.
#
# AUTHOR
#   Andy Wardley   <abw@wardley.org>
#
# 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);
    }
}

__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: