/usr/share/perl5/SHARYANTO/Template/Util.pm is in libsharyanto-utils-perl 0.53-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 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 | package SHARYANTO::Template::Util;
use 5.010;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(process_tt_recursive);
use File::Find;
use File::Slurp;
use Template::Tiny;
our $VERSION = '0.53'; # VERSION
# recursively find *.tt and process them. can optionally delete the *.tt files
# after processing.
sub process_tt_recursive {
my ($dir, $vars, $opts) = @_;
$opts //= {};
my $tt = Template::Tiny->new;
find sub {
return unless -f;
return unless /\.tt$/;
my $newname = $_; $newname =~ s/\.tt$//;
my $input = read_file($_);
my $output;
#$log->debug("Processing template $File::Find::dir/$_ -> $newname ...");
$tt->process(\$input, $vars, \$output);
write_file($newname, $output);
#$log->debug("Removing $File::Find::dir/$_ ...");
if ($opts->{delete}) { unlink($_) }
}, $dir;
}
1;
# ABSTRACT: Recursively process .tt files
__END__
=pod
=encoding utf-8
=head1 NAME
SHARYANTO::Template::Util - Recursively process .tt files
=head1 VERSION
version 0.53
=head1 FUNCTIONS
=head2 process_tt_recursive($dir, $vars, $opts)
None are exported by default, but they are exportable.
=head1 AUTHOR
Steven Haryanto <stevenharyanto@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Steven Haryanto.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=head1 DESCRIPTION
=cut
|