perltidy

1 files changed, 8 insertions, 6 deletions

diff --git a/index.pl b/index.pl
index cd41aa4..7ac24b6 100644
--- a/index.pl
+++ b/index.pl
@@ -319,7 +319,7 @@ sub handle_request {
 	my $with_related   = $self->param('recursive')     // 0;
 	my $callback       = $self->param('callback');
 	my $apiver         = $self->param('version')       // 0;
-	my @train_types     = split( /,/, $self->param('train_types')     // q{} );
+	my @train_types = split( /,/, $self->param('train_types') // q{} );
 	my %opt;
 
 	my $api_version
@@ -400,10 +400,10 @@ sub handle_request {
 	}
 
 	for my $result (@results) {
-		my $platform = ( split( / /, $result->platform ) )[0];
-		my $line     = $result->line;
-		my $train_type     = $result->type;
-		my $delay    = $result->delay;
+		my $platform   = ( split( / /, $result->platform ) )[0];
+		my $line       = $result->line;
+		my $train_type = $result->type;
+		my $delay      = $result->delay;
 		if ( $via and $result->can('route_post') ) {
 			$via =~ s{ , \s* }{|}gx;
 			my @route = $result->route_post;
@@ -420,7 +420,9 @@ sub handle_request {
 		{
 			next;
 		}
-		if ( @train_types and not ( List::MoreUtils::any { $train_type =~ m{^$_} } @train_types ))
+		if ( @train_types
+			and
+			not( List::MoreUtils::any { $train_type =~ m{^$_} } @train_types ) )
 		{
 			next;
 		}