Tidy?

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} } ) {
 
@@ -96,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 ) }
         ],
     );
@@ -147,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'
         },
     },
@@ -160,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 );
 
@@ -193,28 +193,26 @@ 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;
 }
@@ -223,7 +221,8 @@ 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 +233,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,11 +247,11 @@ 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