Tidy - maybe

Author: ranguard

lib/MetaCPAN/Web/Controller/Feed.pm

@@ -35,11 +35,11 @@ sub recent : Private {
     $c->forward('/recent/index');
     die join "\n", @{ $c->error } if @{ $c->error };
 
-    my $changes
-        = $c->model('API::Changes')
-        ->by_releases(
+    my $changes =
+      $c->model('API::Changes')
+      ->by_releases(
         [ map "$_->{author}/$_->{name}", @{ $c->stash->{recent} } ] )
-        ->get;
+      ->get;
 
     for ( @{ $c->stash->{recent} } ) {
 
@@ -58,7 +58,6 @@ sub recent : Private {
     );
 }
 
-
 sub author_rss : Chained('/author/root') PathPart('activity.rss') Args(0) {
     $_[1]->detach( 'author', ['rss'] );
 }
@@ -97,7 +96,7 @@ sub author : Private {
         title   => "Recent CPAN activity of $author - MetaCPAN",
         entries => [
             sort { $b->{date} cmp $a->{date} }
-                @{ $self->_format_release_entries( $releases->{releases} ) },
+              @{ $self->_format_release_entries( $releases->{releases} ) },
             @{ $self->_format_favorite_entries( $author, $faves ) }
         ],
     );
@@ -148,7 +147,7 @@ my $feed_check = validation_for(
         },
         format => {
             type => Enum( [qw(atom rdf rss)] )
-                ->plus_coercions( Undef, '"rdf"', Str, 'lc $_' ),
+              ->plus_coercions( Undef, '"rdf"', Str, 'lc $_' ),
             default => 'rdf'
         },
     },
@@ -161,7 +160,7 @@ sub build_entry {
 
     my $link = $args{host}->clone;
     $link->path( $entry->{link}
-            || join( '/', 'release', $entry->{author}, $entry->{name} ) );
+          || join( '/', 'release', $entry->{author}, $entry->{name} ) );
     $link->fragment( $entry->{fragment} ) if $entry->{fragment};    # for news
     $e->link( $link->as_string );
 
@@ -194,26 +193,28 @@ sub build_feed {
     my $self   = shift;
     my %params = $feed_check->(@_);
 
-    my $feed_class
-        = $params{format} eq 'rdf'  ? XML::FeedPP::RDF::
-        : $params{format} eq 'rss'  ? XML::FeedPP::RSS::
-        : $params{format} eq 'atom' ? XML::FeedPP::Atom::Atom10::
-        :                             die 'invalid format';
+    my $feed_class =
+        $params{format} eq 'rdf'  ? XML::FeedPP::RDF::
+      : $params{format} eq 'rss'  ? XML::FeedPP::RSS::
+      : $params{format} eq 'atom' ? XML::FeedPP::Atom::Atom10::
+      :                             die 'invalid format';
 
     my $feed = $feed_class->new;
     $feed->title( $params{title} );
     $feed->link("$params{link}");
     $feed->pubDate( $params{date}->iso8601 )
-        if $params{date};
+      if $params{date};
     $feed->description( $params{description} )
-        if $params{description};
+      if $params{description};
 
     foreach my $entry ( @{ $params{entries} } ) {
-        $feed->add_item( $self->build_entry(
-            class => $feed->item_class,
-            entry => $entry,
-            host  => $params{host},
-        ) );
+        $feed->add_item(
+            $self->build_entry(
+                class => $feed->item_class,
+                entry => $entry,
+                host  => $params{host},
+            )
+        );
     }
     return $feed;
 }
@@ -222,8 +223,7 @@ sub _format_release_entries {
     my ( $self, $releases ) = @_;
     my @release_data;
     foreach my $item ( @{$releases} ) {
-        $item->{link}
-            = join( '/', 'release', $item->{author}, $item->{name} );
+        $item->{link} = join( '/', 'release', $item->{author}, $item->{name} );
         $item->{name} = "$item->{author} has released $item->{name}";
         push( @release_data, $item );
     }
@@ -234,8 +234,8 @@ sub _format_favorite_entries {
     my ( $self, $author, $data ) = @_;
     my @fav_data;
     foreach my $fav ( @{$data} ) {
-        $fav->{abstract}
-            = "$author ++ed $fav->{distribution} from $fav->{author}";
+        $fav->{abstract} =
+          "$author ++ed $fav->{distribution} from $fav->{author}";
         $fav->{author} = $author;
         $fav->{link}   = join( '/', 'release', $fav->{distribution} );
         $fav->{name}   = "$author ++ed $fav->{distribution}";
@@ -248,18 +248,16 @@ sub end : Private {
     my ( $self, $c ) = @_;
     my $feed = $c->stash->{feed};
     $c->detach('/end')
-        if !$feed;
+      if !$feed;
 
-   
-# This will only affect if `cdn_max_age` has been set.
-# https://www.fastly.com/documentation/guides/concepts/edge-state/cache/stale/
-# If it has then do revalidation in the background
+  # This will only affect if `cdn_max_age` has been set.
+  # https://www.fastly.com/documentation/guides/concepts/edge-state/cache/stale/
+  # If it has then do revalidation in the background
     $c->cdn_stale_while_revalidate('1d');
 
     # And if there is still an error serve from cache
     $c->cdn_stale_if_error('1y');
 
-
     $c->res->content_type(
         $feed->isa('XML::FeedPP::Atom')
         ? 'application/atom+xml; charset=UTF-8'