/usr/share/perl5/SHARYANTO/Template/Util.pm is in libsharyanto-utils-perl 0.77-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 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 | 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::Tiny 'read_file', 'write_file';
use Template::Tiny;
our $VERSION = '0.77'; # 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
This document describes version 0.77 of SHARYANTO::Template::Util (from Perl distribution SHARYANTO-Utils), released on 2015-09-04.
=head1 FUNCTIONS
=head2 process_tt_recursive($dir, $vars, $opts)
=head1 SEE ALSO
L<SHARYANTO>
=head1 HOMEPAGE
Please visit the project's homepage at L<https://metacpan.org/release/SHARYANTO-Utils>.
=head1 SOURCE
Source repository is at L<https://github.com/perlancar/perl-SHARYANTO-Utils>.
=head1 BUGS
Please report any bugs or feature requests on the bugtracker website L<https://rt.cpan.org/Public/Dist/Display.html?Name=SHARYANTO-Utils>
When submitting a bug or request, please include a test-file or a
patch to an existing test-file that illustrates the bug or desired
feature.
=head1 AUTHOR
perlancar <perlancar@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2015 by perlancar@cpan.org.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|