/usr/share/perl5/Dist/Zilla/Plugin/MetaResources.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 126 127 | package Dist::Zilla::Plugin::MetaResources;
# ABSTRACT: provide arbitrary "resources" for distribution metadata
$Dist::Zilla::Plugin::MetaResources::VERSION = '5.043';
use Moose;
with 'Dist::Zilla::Role::MetaProvider';
use namespace::autoclean;
#pod =head1 DESCRIPTION
#pod
#pod This plugin adds resources entries to the distribution's metadata.
#pod
#pod [MetaResources]
#pod homepage = http://example.com/~dude/project.asp
#pod bugtracker.web = https://rt.cpan.org/Public/Dist/Display.html?Name=Project
#pod bugtracker.mailto = bug-Project@rt.cpan.org
#pod repository.url = git://github.com/dude/project.git
#pod repository.web = http://github.com/dude/project
#pod repository.type = git
#pod
#pod =cut
has resources => (
is => 'ro',
isa => 'HashRef',
required => 1,
);
around BUILDARGS => sub {
my $orig = shift;
my ($class, @arg) = @_;
my $args = $class->$orig(@arg);
my %copy = %{ $args };
my $zilla = delete $copy{zilla};
my $name = delete $copy{plugin_name};
if (exists $copy{license} && ref($copy{license}) ne 'ARRAY') {
$copy{license} = [ $copy{license} ];
}
if (exists $copy{bugtracker}) {
my $tracker = delete $copy{bugtracker};
$copy{bugtracker}{web} = $tracker;
}
if (exists $copy{repository}) {
my $repo = delete $copy{repository};
$copy{repository}{url} = $repo;
}
for my $multi (qw( bugtracker repository )) {
for my $key (grep { /^\Q$multi\E\./ } keys %copy) {
my $subkey = (split /\./, $key, 2)[1];
$copy{$multi}{$subkey} = delete $copy{$key};
}
}
return {
zilla => $zilla,
plugin_name => $name,
resources => \%copy,
};
};
sub metadata {
my ($self) = @_;
return { resources => $self->resources };
}
__PACKAGE__->meta->make_immutable;
1;
#pod =head1 SEE ALSO
#pod
#pod Dist::Zilla roles: L<MetaProvider|Dist::Zilla::Role::MetaProvider>.
#pod
#pod Dist::Zilla plugins on the CPAN: L<GithubMeta|Dist::Zilla::Plugin::GithubMeta>.
#pod
#pod =cut
__END__
=pod
=encoding UTF-8
=head1 NAME
Dist::Zilla::Plugin::MetaResources - provide arbitrary "resources" for distribution metadata
=head1 VERSION
version 5.043
=head1 DESCRIPTION
This plugin adds resources entries to the distribution's metadata.
[MetaResources]
homepage = http://example.com/~dude/project.asp
bugtracker.web = https://rt.cpan.org/Public/Dist/Display.html?Name=Project
bugtracker.mailto = bug-Project@rt.cpan.org
repository.url = git://github.com/dude/project.git
repository.web = http://github.com/dude/project
repository.type = git
=head1 SEE ALSO
Dist::Zilla roles: L<MetaProvider|Dist::Zilla::Role::MetaProvider>.
Dist::Zilla plugins on the CPAN: L<GithubMeta|Dist::Zilla::Plugin::GithubMeta>.
=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
|