| line |
true |
false |
branch |
|
56
|
0 |
30 |
if ($name and $cat and $name eq $cat)
|
|
59
|
0 |
30 |
if (defined $train_no and not $train_no)
|
|
62
|
0 |
0 |
if (not defined $line_no and defined $product->{'prodCtx'}{'matchId'} and !defined($train_no) || $product->{'prodCtx'}{'matchId'} ne $train_no)
|
|
73
|
30 |
0 |
if (defined $product->{'oprX'})
|
|
74
|
30 |
0 |
if (my $opref = $opL[$product->{'oprX'}])
|
|
81
|
1 |
0 |
if ($msg->{'type'} eq 'REM' and defined $msg->{'remX'}) { }
|
|
|
0 |
0 |
elsif ($msg->{'type'} eq 'HIM' and defined $msg->{'himX'}) { }
|
|
93
|
0 |
30 |
if (length $date_ref < 7)
|
|
96
|
30 |
0 |
if (length $date_ref == 7)
|
|
122
|
1138 |
418 |
unless (defined $timestr)
|
|
135
|
0 |
389 |
$sched_arr && $rt_arr ? :
|
|
140
|
29 |
360 |
$sched_dep && $rt_dep ? :
|
|
182
|
30 |
0 |
if ($journey->{'stbStop'})
|
|
183
|
0 |
30 |
if ($hafas->{'arrivals'}) { }
|
|
210
|
30 |
0 |
if ($journey->{'stbStop'}) { }
|
|
211
|
0 |
30 |
if ($hafas->{'arrivals'}) { }
|
|
226
|
30 |
0 |
if ($journey->{'stbStop'})
|
|
234
|
0 |
30 |
$hafas->{'arrivals'} ? :
|
|
236
|
0 |
30 |
$hafas->{'arrivals'} ? :
|
|
239
|
1 |
59 |
unless (defined $timestr)
|
|
255
|
29 |
1 |
$datetime_r ? :
|
|
265
|
2 |
28 |
if ($ref->{'delay'}) { }
|
|
277
|
0 |
30 |
if (%tco)
|
|
281
|
0 |
30 |
if ($opt{'polyline'})
|
|
294
|
0 |
477 |
if (length $timestr == 8) { }
|
|
319
|
0 |
3 |
if (defined $self->{'rt_platform'} and defined $self->{'sched_platform'})
|
|
320
|
0 |
0 |
if ($self->{'rt_platform'} ne $self->{'sched_platform'})
|
|
325
|
0 |
3 |
if (defined $self->{'rt_platform'})
|
|
335
|
0 |
0 |
if ($self->{'messages'})
|
|
344
|
0 |
0 |
if ($self->{'polyline'})
|
|
353
|
0 |
0 |
if ($self->{'route'})
|
|
354
|
0 |
0 |
if ($self->{'route'}[0] and $self->{'route'}[0]{'extra'})
|
|
375
|
0 |
0 |
if ($stop->{'name'} =~ / HB $ | hl\.n\. $ | Hbf | Hauptbahnhof | Bf | Bahnhof | Centraal | Flughafen /ux)
|
|
384
|
0 |
0 |
if (@via_main and $via_main[-1]{'name'} eq $last_stop->{'name'})
|
|
387
|
0 |
0 |
if (@via and $via[-1]{'name'} eq $last_stop->{'name'})
|
|
391
|
0 |
0 |
if (@via_main and @via and $via[0]{'name'} eq $via_main[0]{'name'})
|
|
395
|
0 |
0 |
if (@via < $max_parts) { }
|
|
399
|
0 |
0 |
if (@via_main >= $max_parts) { }
|
|
408
|
0 |
0 |
if (&any(sub {
|
|
431
|
0 |
0 |
if (ref $ret->{$k} eq "DateTime")
|