/usr/share/perl5/Dist/Zilla/Plugin/GatherDir/Template.pm is in libdist-zilla-perl 5.008-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 | package Dist::Zilla::Plugin::GatherDir::Template;
{
$Dist::Zilla::Plugin::GatherDir::Template::VERSION = '5.008';
}
# ABSTRACT: gather all the files in a directory and use them as templates
use Moose;
extends 'Dist::Zilla::Plugin::GatherDir';
with 'Dist::Zilla::Role::TextTemplate';
use namespace::autoclean;
use autodie;
use Moose::Autobox;
use Dist::Zilla::File::FromCode;
use Path::Tiny;
sub _file_from_filename {
my ($self, $filename) = @_;
my $template = path($filename)->slurp_utf8;
return Dist::Zilla::File::FromCode->new({
name => $filename,
mode => ((stat $filename)[2] & 0755) | 0200, # kill world-writeability, make sure owner-writable.
code => sub {
my ($file_obj) = @_;
$self->fill_in_string(
$template,
{
dist => \($self->zilla),
plugin => \($self),
},
);
},
});
}
__PACKAGE__->meta->make_immutable;
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Dist::Zilla::Plugin::GatherDir::Template - gather all the files in a directory and use them as templates
=head1 VERSION
version 5.008
=head1 DESCRIPTION
This is a subclass of the L<GatherDir|Dist::Zilla::Plugin::GatherDir>
plugin. It works just like its parent class, except that each
gathered file is processed through L<Text::Template>.
The variables C<$plugin> and C<$dist> will be provided to the
template, set to the GatherDir::Template plugin and the Dist::Zilla
object, respectively.
It is meant to be used when minting dists with C<dzil new>, but could be used
in building existing dists, too.
=head1 AUTHOR
Ricardo SIGNES <rjbs@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Ricardo SIGNES.
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
|