/usr/share/perl5/Dist/Zilla/MVP/Reader/Perl.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 | package Dist::Zilla::MVP::Reader::Perl;
# ABSTRACT: the reader for dist.pl files
$Dist::Zilla::MVP::Reader::Perl::VERSION = '5.043';
use Moose;
extends 'Config::MVP::Reader';
with qw(Config::MVP::Reader::Findable::ByExtension);
use namespace::autoclean;
#pod =head1 DESCRIPTION
#pod
#pod Dist::Zilla::Config reads in the F<dist.pl> file for a distribution.
#pod
#pod =cut
sub default_extension { 'pl' }
sub read_into_assembler {
my ($self, $location, $asm) = @_;
my @input = do $location;
while (@input and ! ref $input[0]) {
my ($key, $value) = (shift(@input), shift(@input));
$asm->add_value($key => $value);
}
my $plugins = shift @input;
confess "too much input" if @input;
while (my ($ident, $arg) = splice @$plugins, 0, 2) {
unless (ref $arg) {
unshift @$plugins, $arg;
$arg = [];
}
my ($moniker, $name) = ref $ident ? @$ident : (($ident) x 2);
$asm->change_section($moniker, $name);
my @to_iter = ref $arg eq 'HASH' ? %$arg : @$arg;
while (my ($key, $value) = splice @to_iter, 0, 2) {
$asm->add_value($key, $value);
}
}
# should be done ... elsewhere? -- rjbs, 2009-08-24
$self->assembler->end_section if $self->assembler->current_section;
return $self->assembler->sequence;
}
__PACKAGE__->meta->make_immutable;
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Dist::Zilla::MVP::Reader::Perl - the reader for dist.pl files
=head1 VERSION
version 5.043
=head1 DESCRIPTION
Dist::Zilla::Config reads in the F<dist.pl> file for a distribution.
=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
|