/usr/share/perl5/Dist/Zilla/MVP/RootSection.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 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 | package Dist::Zilla::MVP::RootSection;
# ABSTRACT: a standard section in Dist::Zilla's configuration sequence
$Dist::Zilla::MVP::RootSection::VERSION = '5.043';
use Moose;
extends 'Config::MVP::Section';
use namespace::autoclean;
#pod =head1 DESCRIPTION
#pod
#pod This is a subclass of L<Config::MVP::Section>, used as the starting section by
#pod L<Dist::Zilla::MVP::Assembler::Zilla>. It has a number of useful defaults, as
#pod well as a C<zilla> attribute which will, after section finalization, contain a
#pod Dist::Zilla object with which subsequent plugin sections may register.
#pod
#pod Those useful defaults are:
#pod
#pod =for :list
#pod * name defaults to _
#pod * aliases defaults to { author => 'authors' }
#pod * multivalue_args defaults to [ 'authors' ]
#pod
#pod =cut
use MooseX::LazyRequire;
use MooseX::SetOnce;
use Moose::Util::TypeConstraints;
has '+name' => (default => '_');
has '+aliases' => (default => sub { return { author => 'authors' } });
has '+multivalue_args' => (default => sub { [ qw(authors) ] });
has zilla => (
is => 'ro',
isa => class_type('Dist::Zilla'),
traits => [ qw(SetOnce) ],
writer => 'set_zilla',
lazy_required => 1,
);
after finalize => sub {
my ($self) = @_;
my $assembler = $self->sequence->assembler;
my %payload = %{ $self->payload };
my %dzil;
$dzil{$_} = delete $payload{":$_"} for grep { s/\A:// } keys %payload;
my $zilla = $assembler->zilla_class->new( \%payload );
if (defined $dzil{version}) {
Dist::Zilla::Util->_assert_loaded_class_version_ok(
'Dist::Zilla',
$dzil{version},
);
}
$self->set_zilla($zilla);
};
__PACKAGE__->meta->make_immutable;
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Dist::Zilla::MVP::RootSection - a standard section in Dist::Zilla's configuration sequence
=head1 VERSION
version 5.043
=head1 DESCRIPTION
This is a subclass of L<Config::MVP::Section>, used as the starting section by
L<Dist::Zilla::MVP::Assembler::Zilla>. It has a number of useful defaults, as
well as a C<zilla> attribute which will, after section finalization, contain a
Dist::Zilla object with which subsequent plugin sections may register.
Those useful defaults are:
=over 4
=item *
name defaults to _
=item *
aliases defaults to { author => 'authors' }
=item *
multivalue_args defaults to [ 'authors' ]
=back
=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
|