Rename who_pumpkin as perl_releasers

Author: charsbar

lib/pause_2017/PAUSE/Web/Config.pm

@@ -86,9 +86,9 @@ our %Actions = (
     desc => "Your rights as a user of PAUSE",
     has_title => 1,
   },
-  who_pumpkin => {
-    x_mojo_to => "public#pumpkin",
-    verb => "List of pumpkins",
+  perl_releasers => {
+    x_mojo_to => "public#perl_releasers",
+    verb => "Approved Perl releasers",
     priv => "public",
     cat => "02serv/05",
     desc => "A list, also available as YAML",

lib/pause_2017/PAUSE/Web/Controller/Public.pm

@@ -168,7 +168,7 @@ sub privacy_policy {
   $c->serve_pause_doc("doc/privacy-policy.md")
 }
 
-sub pumpkin {
+sub perl_releasers {
   my $c = shift;
   my $pause = $c->stash(".pause");
   my $mgr = $c->app->pause;
@@ -191,7 +191,7 @@ sub pumpkin {
       die "not supported OF=$output_format"
     }
   }
-  $pause->{pumpkins} = \@hres;
+  $pause->{perl_releasers} = \@hres;
 }
 
 sub admin {

lib/pause_2017/templates/public/perl_releasers.html.ep

@@ -0,0 +1,7 @@
+% layout 'layout';
+% my $pause = stash(".pause") || {};
+
+<p>Approved Perl releasers: <%= join ", ", @{$pause->{perl_releasers} || []} %></p>
+<p><a href="<%= my_url->query(ACTION => "perl_releasers", OF => "YAML") %>" style="text-decoration: none;">
+<span class="orange_button">YAML</span>
+</a></p>

lib/pause_2017/templates/public/pumpkin.html.ep

@@ -25,16 +25,16 @@ subtest 'get' => sub {
         my ($path, $user) = @$test;
         my $t = Test::PAUSE::Web->new(user => $user);
 
-        $t->get_ok("$path?ACTION=who_pumpkin")
-          ->text_like("body", qr/Registered pumpkins:\s+BAR, FOO/);
+        $t->get_ok("$path?ACTION=perl_releasers")
+          ->text_like("body", qr/Approved Perl releasers:\s+BAR, FOO/);
 
-        $t->get_ok("$path?ACTION=who_pumpkin&OF=YAML");
+        $t->get_ok("$path?ACTION=perl_releasers&OF=YAML");
         my $list_amp = YAML::Syck::Load( $t->content );
         is_deeply( $list_amp, [qw/BAR FOO/], "YAML output works" );
 
     SKIP: {
         skip "; is not supported anymore", 1;
-        $t->get_ok("$path?ACTION=who_pumpkin;OF=YAML");
+        $t->get_ok("$path?ACTION=perl_releasers;OF=YAML");
         my $list_sem = YAML::Syck::Load( $t->content );
         is_deeply( $list_sem, [qw/BAR FOO/], "YAML output works" );
         }