/usr/share/perl5/Dist/Zilla/Plugin/TemplateFiles.pm is in libdist-zilla-plugin-templatefiles-perl 0.03-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 87 88 89 90 91 92 93 94 95 | package Dist::Zilla::Plugin::TemplateFiles;
# ABSTRACT: Use files to template a distribution
$Dist::Zilla::Plugin::TemplateFiles::VERSION = '0.03';
use Moose;
use Moose::Autobox;
use namespace::autoclean;
with qw/
Dist::Zilla::Role::FileMunger
Dist::Zilla::Role::TextTemplate
/;
# Don't ask me, I just copied from
sub mvp_multivalue_args { qw/ filename / }
has filename => (
is => 'rw',
isa => 'ArrayRef',
);
my %files;
sub munge_file {
my ($self,$file) = @_;
unless (%files) {
for my $filename (@{$self->filename}) {
$files{$filename} = 1;
}
}
return unless $files{$file->name};
my $content = $self->fill_in_string( $file->content, { plugin => \$self, dist => \($self->zilla) } );
$file->content( $content ) if defined $content;
}
__PACKAGE__->meta->make_immutable;
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Dist::Zilla::Plugin::TemplateFiles - Use files to template a distribution
=head1 VERSION
version 0.03
=head1 SYNOPSIS
In your F<dist.ini>:
[TemplateFiles]
filename = README
filename = path/to/other/file
=head1 DESCRIPTION
Utilize L<Text::Template> to turn certain files into templates. Each
template has available to it the C<$dist> variable that is the instance
of L<Dist::Zilla> currently running. Only those files listed in
C<dist.ini> as C<filename = blah> will be considered templates.
Filenames are given relative to the root of the build.
=head1 NAME
Dist::Zilla::Plugin::TemplateFiles - use files as templates to build a distribution
=head1 AUTHOR
Jonathan Scott Duff <duff@pobox.com>
=head1 COPYRIGHT
This software is copyright (c) 2010 by Jonathan Scott Duff
This is free software; you can redistribute it and/or modify it under the
same terms as the Perl 5 programming language itself.
=head1 AUTHOR
Jonathan Scott Duff <duff@pobox.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2010 by Jonathan Scott Duff.
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
|