diff options
Diffstat (limited to 'index.pl')
-rw-r--r-- | index.pl | 14 |
1 files changed, 8 insertions, 6 deletions
@@ -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; } |