/usr/share/perl5/Dist/Zilla/Plugin/Manifest.pm is in libdist-zilla-perl 5.043-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 | package Dist::Zilla::Plugin::Manifest;
# ABSTRACT: build a MANIFEST file
$Dist::Zilla::Plugin::Manifest::VERSION = '5.043';
use Moose;
with 'Dist::Zilla::Role::FileGatherer';
use namespace::autoclean;
use Dist::Zilla::File::FromCode;
#pod =head1 DESCRIPTION
#pod
#pod If included, this plugin will produce a F<MANIFEST> file for the distribution,
#pod listing all of the files it contains. For obvious reasons, it should be
#pod included as close to last as possible.
#pod
#pod This plugin is included in the L<@Basic|Dist::Zilla::PluginBundle::Basic>
#pod bundle.
#pod
#pod =head1 SEE ALSO
#pod
#pod Dist::Zilla core plugins:
#pod L<@Basic|Dist::Zilla::PluginBundle::Manifest>,
#pod L<ManifestSkip|Dist::Zilla::Plugin::ManifestSkip>.
#pod
#pod Other modules: L<ExtUtils::Manifest>.
#pod
#pod =cut
sub __fix_filename {
my ($name) = @_;
return $name unless $name =~ /[ '\\]/;
$name =~ s/\\/\\\\/g;
$name =~ s/'/\\'/g;
return qq{'$name'};
}
sub gather_files {
my ($self, $arg) = @_;
my $zilla = $self->zilla;
my $file = Dist::Zilla::File::FromCode->new({
name => 'MANIFEST',
code_return_type => 'bytes',
code => sub {
my $generated_by = sprintf "%s v%s", ref($self), $self->VERSION || '(dev)';
return "# This file was automatically generated by $generated_by.\n"
. join("\n", map { __fix_filename($_) } sort map { $_->name } @{ $zilla->files })
. "\n",
},
});
$self->add_file($file);
}
__PACKAGE__->meta->make_immutable;
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Dist::Zilla::Plugin::Manifest - build a MANIFEST file
=head1 VERSION
version 5.043
=head1 DESCRIPTION
If included, this plugin will produce a F<MANIFEST> file for the distribution,
listing all of the files it contains. For obvious reasons, it should be
included as close to last as possible.
This plugin is included in the L<@Basic|Dist::Zilla::PluginBundle::Basic>
bundle.
=head1 SEE ALSO
Dist::Zilla core plugins:
L<@Basic|Dist::Zilla::PluginBundle::Manifest>,
L<ManifestSkip|Dist::Zilla::Plugin::ManifestSkip>.
Other modules: L<ExtUtils::Manifest>.
=head1 AUTHOR
Ricardo SIGNES <rjbs@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2016 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
|