package Dist::Zilla::Plugin::MetaResources;
# ABSTRACT: provide arbitrary "resources" for distribution metadata
$Dist::Zilla::Plugin::MetaResources::VERSION = '6.005';
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 6.005
=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