link to MetaCPAN from the documentation browser

mojolicious · Oct 30, 2017 · 2d457b9 · 2d457b9
1 parent 741f9d3
commit 2d457b9
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,6 @@
 
 7.50  2017-10-30
+  - Improved documentation browser with links to MetaCPAN.
 
 7.49  2017-10-28
   - Deprecated Mojo::IOLoop::Delay::data and Mojo::IOLoop::Delay::remaining.

diff --git a/lib/Mojolicious/Plugin/PODRenderer.pm b/lib/Mojolicious/Plugin/PODRenderer.pm
@@ -80,10 +80,10 @@ sub _perldoc {
 
   # Find module or redirect to CPAN
   my $module = join '::', split('/', $c->param('module'));
+  $c->stash(cpan => "https://metacpan.org/pod/$module");
   my $path
     = Pod::Simple::Search->new->find($module, map { $_, "$_/pods" } @INC);
-  return $c->redirect_to("https://metacpan.org/pod/$module")
-    unless $path && -r $path;
+  return $c->redirect_to($c->stash('cpan')) unless $path && -r $path;
 
   my $src = path($path)->slurp;
   $c->respond_to(txt => {data => $src}, html => sub { _html($c, $src) });

diff --git a/lib/Mojolicious/resources/templates/mojo/perldoc.html.ep b/lib/Mojolicious/resources/templates/mojo/perldoc.html.ep
@@ -104,7 +104,8 @@
             % $path .= "/$part";
             %= link_to $part => url_for("/perldoc$path")
           % }
-          (<%= link_to 'source' => url_for("/perldoc$path.txt") %>)
+          (<%= link_to 'source' => url_for("/perldoc$path.txt") %>,
+          <%= link_to 'CPAN' => $cpan %>)
         </div>
         <h1><a id="toc">TABLE OF CONTENTS</a></h1>
         <ul>