Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

merge+fix rwstauner metacpan idea

  • Loading branch information...
commit daa2b4de140741352a194030b1bf7ec180a2477b 2 parents e65a69b + debedd8
Apocalypse authored
Showing with 14 additions and 3 deletions.
  1. +14 −3 lib/Pod/Weaver/Section/Support.pm
View
17 lib/Pod/Weaver/Section/Support.pm
@@ -100,6 +100,7 @@ Valid options are: "none", "search", "rt", "anno", "ratings", "forum", "kwalitee
The default is "all".
# Where the links go to:
+ metacpan - http://metacpan.org/release/$dist
search - http://search.cpan.org/dist/$dist
rt - http://rt.cpan.org/NoAuth/Bugs.html?Dist=$dist
anno - http://annocpan.org/dist/$dist
@@ -299,7 +300,7 @@ sub weave_section {
content => '',
children => [
Pod::Elemental::Element::Pod5::Ordinary->new( {
- content => join( " ", qw( cpan testmatrix url annocpan anno bugtracker rt cpants kwalitee diff irc mailto metadata placeholders ) ),
+ content => join( " ", qw( cpan testmatrix url annocpan anno bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan ) ),
} ),
],
} ),
@@ -601,14 +602,14 @@ sub _add_websites {
# sanity check
foreach my $type ( @{ $self->websites } ) {
- if ( $type !~ /^(?:search|rt|anno|ratings|forum|kwalitee|testers|testmatrix|deps|all)$/i ) {
+ if ( $type !~ /^(?:metacpan|search|rt|anno|ratings|forum|kwalitee|testers|testmatrix|deps|all)$/i ) {
$self->log_fatal( "Unknown website type: $type" );
}
}
# Set the default ordering for "all"
if ( grep { $_ eq 'all' } @{ $self->websites } ) { ## no critic ( BuiltinFunctions::ProhibitBooleanGrep )
- @{ $self->websites } = qw( search rt anno ratings forum kwalitee testers testmatrix deps );
+ @{ $self->websites } = qw( metacpan search rt anno ratings forum kwalitee testers testmatrix deps );
}
# Make the website links!
@@ -646,6 +647,16 @@ sub _add_websites {
} );
}
+sub _add_websites_metacpan {
+ my( $self, $dist, $module ) = @_;
+
+ return _make_item( 'MetaCPAN', <<"EOF" );
+A modern, open-source CPAN search engine, useful to view POD in HTML format.
+
+L<http://metacpan.org/release/$dist>
+EOF
+}
+
sub _add_websites_search {
my( $self, $dist, $module ) = @_;
Please sign in to comment.
Something went wrong with that request. Please try again.