/usr/share/perl5/Dist/Zilla/MetaProvides/ProvideRecord.pm is in libdist-zilla-plugin-metaprovides-perl 2.001011-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 164 165 166 167 168 169 170 171 172 173 174 175 176 | use 5.006;
use strict;
use warnings;
package Dist::Zilla::MetaProvides::ProvideRecord;
our $VERSION = '2.001011';
# ABSTRACT: Data Management Record for MetaProvider::Provides Based Class
our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
use Moose qw( has );
use MooseX::Types::Moose qw( Str );
use Dist::Zilla::MetaProvides::Types qw( ModVersion ProviderObject );
use namespace::autoclean;
has version => ( isa => ModVersion, is => 'ro', required => 1 );
has module => ( isa => Str, is => 'ro', required => 1 );
has file => ( isa => Str, is => 'ro', required => 1 );
has parent => (
is => 'ro',
required => 1,
weak_ref => 1,
isa => ProviderObject,
handles => [ 'zilla', '_resolve_version', ],
);
__PACKAGE__->meta->make_immutable;
no Moose;
sub copy_into {
my $self = shift;
my $dlist = shift;
$dlist->{ $self->module } = {
file => $self->file,
$self->_resolve_version( $self->version ),
};
return 1;
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Dist::Zilla::MetaProvides::ProvideRecord - Data Management Record for MetaProvider::Provides Based Class
=head1 VERSION
version 2.001011
=head1 PUBLIC METHODS
=head2 copy_into C<( \%provides_list )>
Populate the referenced C<%provides_list> with data from this Provide Record object.
This is called by the L<Dist::Zilla::Role::MetaProvider::Provider> Role.
This is very convenient if you have an array full of these objects, for you can just do
my %discovered;
for ( @array ) {
$_->copy_into( \%discovered );
}
and C<%discovered> will be populated with relevant data.
=head1 ATTRIBUTES / PARAMETERS
=head2 version
See L<Dist::Zilla::MetaProvides::Types/ModVersion>
=head2 module
The String Name of a fully qualified module to be reported as
included in the distribution.
=head2 file
The String Name of the file as to be reported in the distribution.
=head2 parent
A L<Dist::Zilla::MetaProvides::Types/ProviderObject>, mostly to get Zilla information
and accessors from L<Dist::Zilla::Role::MetaProvider::Provider>
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Dist::Zilla::MetaProvides::ProvideRecord",
"interface":"class",
"inherits":"Moose::Object"
}
=end MetaPOD::JSON
=head1 AUTHOR
Kent Fredric <kentnl@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2016 by Kent Fredric <kentfredric@gmail.com>.
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
|