summaryrefslogtreecommitdiff
path: root/index.pl
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2016-08-12 15:52:21 +0200
committerDaniel Friesel <derf@finalrewind.org>2016-08-12 15:52:21 +0200
commitf3771b96629934360e8c99ff949a3c523b29fd13 (patch)
tree569c46264eff72d636b54828342516f577ef5c53 /index.pl
parent0bca47ae5628540e67e88f0a69fbc97a6d4c3fea (diff)
perltidy
Diffstat (limited to 'index.pl')
-rw-r--r--index.pl14
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;
}