refactor contributor handling to allow display on module pages

Author: haarg

lib/MetaCPAN/Web/Controller/Pod.pm

@@ -161,6 +161,8 @@ sub view : Private {
     my $dist = $release->{distribution};
     $c->stash( $c->model('API::Favorite')->find_plussers($dist) );
 
+    my $contribs = $self->groom_contributors( $c, $release );
+
     $c->stash(
         {
             module            => $data,
@@ -169,6 +171,7 @@ sub view : Private {
             template          => 'pod.html',
             canonical         => $canonical,
             documented_module => $documented_module,
+            contributors      => $contribs,
         }
     );
     unless ( $reqs->{pod}->{raw} ) {

lib/MetaCPAN/Web/Controller/Release.pm

@@ -101,7 +101,7 @@ sub view : Private {
 
     $c->res->last_modified( $out->{date} );
 
-    $self->groom_contributors( $c, $out );
+    my $contribs = $self->groom_contributors( $c, $out );
 
     $c->stash( $c->model('API::Favorite')->find_plussers($distribution) );
 
@@ -123,6 +123,8 @@ sub view : Private {
         examples => \@examples,
         files    => \@view_files,
 
+        contributors => $contribs,
+
         # TODO: Put this in a more general place.
         # Maybe make a hash for feature flags?
         (
@@ -135,35 +137,4 @@ sub view : Private {
     );
 }
 
-# massage the x_contributors field into what we want
-sub groom_contributors {
-    my ( $self, $c, $out ) = @_;
-
-    return unless $out->{metadata}{x_contributors};
-
-    # just in case a lonely contributor makes it as a scalar
-    $out->{metadata}{x_contributors} = [ $out->{metadata}{x_contributors} ]
-        unless ref $out->{metadata}{x_contributors};
-
-    my @contributors = map {
-        s/<(.*)>//;
-        { name => $_, email => $1 }
-    } @{ $out->{metadata}{x_contributors} };
-
-    $out->{metadata}{x_contributors} = \@contributors;
-
-    for my $contributor ( @{ $out->{metadata}{x_contributors} } ) {
-
-        # heuristic to autofill pause accounts
-        $contributor->{pauseid} = uc $1
-            if !$contributor->{pauseid}
-            and $contributor->{email} =~ /^(.*)\@cpan.org/;
-
-        next unless $contributor->{pauseid};
-
-        $contributor->{url} = $c->uri_for_action( '/author/index',
-            [ $contributor->{pauseid} ] );
-    }
-}
-
 1;

lib/MetaCPAN/Web/Role/ReleaseInfo.pm

@@ -67,4 +67,40 @@ sub recv_all {
     return { map { $_ => $condvars->{$_}->recv } keys %$condvars };
 }
 
+# massage the x_contributors field into what we want
+sub groom_contributors {
+    my ( $self, $c, $release ) = @_;
+
+    my $contribs = $release->{metadata}{x_contributors} || [];
+
+    # just in case a lonely contributor makes it as a scalar
+    $contribs = [$contribs]
+        if !ref $contribs;
+
+    my @contribs;
+    for my $contrib (@$contribs) {
+        my $name = $contrib;
+        $name =~ s/\s*<([^<>]+@[^<>]+)>//;
+        my $info = {
+            name => $name,
+            $1 ? ( email => $1 ) : (),
+        };
+
+        # heuristic to autofill pause accounts
+        if (   !$info->{pauseid}
+            and $info->{email} =~ /^(.*)\@cpan\.org$/ )
+        {
+            $info->{pauseid} = uc $1;
+        }
+
+        if ( $info->{pauseid} ) {
+            $info->{url}
+                = $c->uri_for_action( '/author/index', [ $info->{pauseid} ] );
+        }
+        push @contribs, $info;
+    }
+
+    return \@contribs;
+}
+
 1;

root/inc/contributors.html

@@ -1,4 +1,4 @@
-<% IF contributors %>
+<% IF contributors and contributors.size %>
 
 <div id="contributors">
     <strong>and <% contributors.size %> contributors</strong>

root/pod.html

@@ -36,7 +36,10 @@
 </ul>
 
 <div class="pull-right">
-<div class="pull-right"><% INCLUDE inc/author-pic.html author = author %></div>
+<div class="pull-right">
+<% INCLUDE inc/author-pic.html author = author %>
+<% INCLUDE inc/contributors.html contributors = contributors %>
+</div>
 <% INCLUDE inc/dependencies.html dependencies = release.dependency %>
 </div>
 <% IF req.cookies.hideTOC.value %><style>#index { display:none}</style><% END %>

root/release.html

@@ -27,8 +27,7 @@
 
 <div class="pull-right hidden-phone">
 <% INCLUDE inc/author-pic.html author = author %>
-<% INCLUDE inc/contributors.html
-    contributors = release.metadata.x_contributors %>
+<% INCLUDE inc/contributors.html contributors = contributors %>
 </div>
 <% INCLUDE inc/dependencies.html dependencies = release.dependency %>