/usr/share/perl5/Dist/Zilla/MVP/Assembler/Zilla.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 119 120 121 122 123 124 125 | package Dist::Zilla::MVP::Assembler::Zilla;
# ABSTRACT: Dist::Zilla::MVP::Assembler for the Dist::Zilla object
$Dist::Zilla::MVP::Assembler::Zilla::VERSION = '5.043';
use Moose;
extends 'Dist::Zilla::MVP::Assembler';
use namespace::autoclean;
#pod =head1 OVERVIEW
#pod
#pod This is a subclass of L<Dist::Zilla::MVP::Assembler> used when assembling the
#pod Dist::Zilla object.
#pod
#pod It has a C<zilla_class> attribute, which is used to determine what class of
#pod Dist::Zilla object to create. (This isn't very useful now, but will be in the
#pod future when minting and building use different subclasses of Dist::Zilla.)
#pod
#pod Upon construction, the assembler will create a L<Dist::Zilla::MVP::RootSection>
#pod as the initial section.
#pod
#pod =cut
use MooseX::Types::Perl qw(PackageName);
use Dist::Zilla::MVP::RootSection;
sub BUILD {
my ($self) = @_;
my $root = Dist::Zilla::MVP::RootSection->new;
$self->sequence->add_section($root);
}
has zilla_class => (
is => 'ro',
isa => PackageName,
required => 1
);
#pod =method zilla
#pod
#pod This method is a shortcut for retrieving the C<zilla> from the root section.
#pod If called before that section has been finalized, it will result in an
#pod exception.
#pod
#pod =cut
sub zilla {
my ($self) = @_;
$self->sequence->section_named('_')->zilla;
}
#pod =method register_stash
#pod
#pod $assembler->register_stash($name => $stash_object);
#pod
#pod This adds a stash to the assembler's zilla's stash registry -- unless the name
#pod is already taken, in which case an exception is raised.
#pod
#pod =cut
sub register_stash {
my ($self, $name, $object) = @_;
$self->log_fatal("tried to register $name stash entry twice")
if $self->zilla->_local_stashes->{ $name };
$self->zilla->_local_stashes->{ $name } = $object;
return;
}
__PACKAGE__->meta->make_immutable;
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Dist::Zilla::MVP::Assembler::Zilla - Dist::Zilla::MVP::Assembler for the Dist::Zilla object
=head1 VERSION
version 5.043
=head1 OVERVIEW
This is a subclass of L<Dist::Zilla::MVP::Assembler> used when assembling the
Dist::Zilla object.
It has a C<zilla_class> attribute, which is used to determine what class of
Dist::Zilla object to create. (This isn't very useful now, but will be in the
future when minting and building use different subclasses of Dist::Zilla.)
Upon construction, the assembler will create a L<Dist::Zilla::MVP::RootSection>
as the initial section.
=head1 METHODS
=head2 zilla
This method is a shortcut for retrieving the C<zilla> from the root section.
If called before that section has been finalized, it will result in an
exception.
=head2 register_stash
$assembler->register_stash($name => $stash_object);
This adds a stash to the assembler's zilla's stash registry -- unless the name
is already taken, in which case an exception is raised.
=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
|