/usr/share/perl5/Dist/Zilla/Plugin/GatherDir/Template.pm is in libdist-zilla-perl 6.010-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 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 | package Dist::Zilla::Plugin::GatherDir::Template 6.010;
# 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 Dist::Zilla::File::FromCode;
use Dist::Zilla::Path;
#pod =head1 DESCRIPTION
#pod
#pod This is a subclass of the L<GatherDir|Dist::Zilla::Plugin::GatherDir>
#pod plugin. It works just like its parent class, except that each
#pod gathered file is processed through L<Text::Template>.
#pod
#pod The variables C<$plugin> and C<$dist> will be provided to the
#pod template, set to the GatherDir::Template plugin and the Dist::Zilla
#pod object, respectively.
#pod
#pod It is meant to be used when minting dists with C<dzil new>, but could be used
#pod in building existing dists, too.
#pod
#pod =head1 ATTRIBUTES
#pod
#pod =head2 rename
#pod
#pod Use this to rename files while they are being gathered. This is a list of
#pod key/value pairs, specified thus:
#pod
#pod [GatherDir::Template]
#pod rename.DISTNAME = $dist->name =~ s/...//r
#pod rename.DISTVER = $dist->version
#pod
#pod This example will replace the tokens C<DISTNAME> and C<DISTVER> with the
#pod expressions they are associated with. These expressions will be treated as
#pod though they were miniature Text::Template sections, and hence will receive the
#pod same variables that the file itself receives, i.e. C<$dist> and C<$plugin>.
#pod
#pod =cut
has _rename => (
is => 'ro',
isa => 'HashRef',
default => sub { +{} },
);
around BUILDARGS => sub {
my $orig = shift;
my ($class, @arg) = @_;
my $args = $class->$orig(@arg);
my %retargs = %$args;
for my $rename (grep /^rename/, keys %retargs) {
my $expr = delete $retargs{$rename};
$rename =~ s/^rename\.//;
$retargs{_rename}->{$rename} = $expr;
}
return \%retargs;
};
sub _file_from_filename {
my ($self, $filename) = @_;
my $template = path($filename)->slurp_utf8;
my @stat = stat $filename or $self->log_fatal("$filename does not exist!");
my $new_filename = $filename;
for my $token (keys %{$self->_rename}) {
my $expr = $self->_rename->{$token};
my $temp_temp = "{{ $expr }}";
my $replacement = $self->fill_in_string(
$temp_temp,
{
dist => \($self->zilla),
plugin => \($self),
},
);
$new_filename =~ s/\Q$token/$replacement/g;
}
return Dist::Zilla::File::FromCode->new({
name => $new_filename,
mode => ($stat[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 6.010
=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 ATTRIBUTES
=head2 rename
Use this to rename files while they are being gathered. This is a list of
key/value pairs, specified thus:
[GatherDir::Template]
rename.DISTNAME = $dist->name =~ s/...//r
rename.DISTVER = $dist->version
This example will replace the tokens C<DISTNAME> and C<DISTVER> with the
expressions they are associated with. These expressions will be treated as
though they were miniature Text::Template sections, and hence will receive the
same variables that the file itself receives, i.e. C<$dist> and C<$plugin>.
=head1 AUTHOR
Ricardo SIGNES 😏 <rjbs@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2017 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
|