| line |
true |
false |
branch |
|
44
|
0 |
5 |
if (defined $service and not exists $hafas_instance->{$service})
|
|
48
|
5 |
0 |
unless ($ua)
|
|
50
|
0 |
5 |
if ($service and $hafas_instance->{$service}{'ua_string'})
|
|
53
|
0 |
5 |
if ($service and my $geoip_service = $hafas_instance->{$service}{'geoip_lock'})
|
|
56
|
0 |
0 |
if (my $proxy = $ENV{"HAFAS_PROXY_$geoip_service"})
|
|
60
|
0 |
5 |
if ($service and not $hafas_instance->{$service}{'tls_verify'})
|
|
69
|
0 |
0 |
unless ($conf{'station'} or $conf{'journey'} or $conf{'journeyMatch'} or $conf{'geoSearch'} or $conf{'locationSearch'})
|
|
82
|
0 |
5 |
unless (defined $service)
|
|
107
|
3 |
2 |
if ($conf{'journey'}) { }
|
|
|
1 |
1 |
elsif ($conf{'journeyMatch'}) { }
|
|
|
0 |
1 |
elsif ($conf{'geoSearch'}) { }
|
|
|
0 |
1 |
elsif ($conf{'locationSearch'}) { }
|
|
119
|
0 |
3 |
$conf{'with_polyline'} ? :
|
|
200
|
0 |
1 |
if ($self->{'station'} =~ / ^ [0-9]+ $ /ux) { }
|
|
232
|
0 |
1 |
$conf{'arrivals'} ? :
|
|
236
|
0 |
5 |
if ($conf{'language'})
|
|
249
|
0 |
5 |
if ($self->{'cache'})
|
|
258
|
5 |
0 |
if (my $salt = $hafas_instance->{$service}{'salt'})
|
|
259
|
0 |
5 |
if ($hafas_instance->{$service}{'micmac'}) { }
|
|
269
|
0 |
5 |
if ($conf{'async'})
|
|
274
|
5 |
0 |
if ($conf{'json'}) { }
|
|
278
|
0 |
0 |
if ($self->{'developer_mode'})
|
|
284
|
0 |
0 |
if ($error)
|
|
289
|
0 |
0 |
if ($self->{'developer_mode'})
|
|
298
|
3 |
2 |
if ($conf{'journey'}) { }
|
|
|
1 |
1 |
elsif ($conf{'journeyMatch'}) { }
|
|
|
0 |
1 |
elsif ($conf{'geoSearch'} or $conf{'locationSearch'}) { }
|
|
318
|
0 |
0 |
unless ($conf{'station'} or $conf{'journey'} or $conf{'journeyMatch'} or $conf{'geoSearch'} or $conf{'locationSearch'})
|
|
339
|
0 |
0 |
if ($conf{'journey'}) { }
|
|
|
0 |
0 |
elsif ($conf{'journeyMatch'}) { }
|
|
|
0 |
0 |
elsif ($conf{'geoSearch'} or $conf{'locationSearch'}) { }
|
|
351
|
0 |
0 |
if ($self->errstr) { }
|
|
381
|
20 |
0 |
if (ref $hafas_instance->{$service}{'productbits'}[$i] eq 'ARRAY') { }
|
|
389
|
0 |
2 |
if (my(@mots) = @{$self->{'exclusive_mots'} // [];})
|
|
392
|
0 |
0 |
if (exists $mot_pos{$mot}) { }
|
|
|
0 |
0 |
elsif ($mot =~ / ^ \d+ $ /ux) { }
|
|
401
|
0 |
2 |
if (my(@mots) = @{$self->{'excluded_mots'} // [];})
|
|
403
|
0 |
0 |
if (exists $mot_pos{$mot}) { }
|
|
|
0 |
0 |
elsif ($mot =~ / ^ \d+ $ /ux) { }
|
|
419
|
0 |
0 |
if ($self->{'developer_mode'})
|
|
423
|
0 |
0 |
if ($cache)
|
|
425
|
0 |
0 |
if ($content and not $content =~ / CGI_NO_SERVER | CGI_READ_FAILED /ux)
|
|
428
|
0 |
0 |
if ($self->{'developer_mode'})
|
|
435
|
0 |
0 |
if ($self->{'developer_mode'})
|
|
445
|
0 |
0 |
if ($reply->is_error)
|
|
450
|
0 |
0 |
if ($cache)
|
|
461
|
0 |
0 |
if ($self->{'developer_mode'})
|
|
467
|
0 |
0 |
if ($cache)
|
|
469
|
0 |
0 |
if ($content)
|
|
470
|
0 |
0 |
if ($self->{'developer_mode'})
|
|
477
|
0 |
0 |
if ($self->{'developer_mode'})
|
|
484
|
0 |
0 |
if ($service_desc->{'ua_string'})
|
|
487
|
0 |
0 |
if (my $geoip_service = $service_desc->{'geoip_lock'})
|
|
488
|
0 |
0 |
if (my $proxy = $ENV{"HAFAS_PROXY_$geoip_service"})
|
|
493
|
0 |
0 |
unless ($service_desc->{'tls_verify'})
|
|
500
|
0 |
0 |
if (my $err = $tx->error)
|
|
506
|
0 |
0 |
if ($cache)
|
|
526
|
0 |
5 |
if ($self->{'raw_json'}{'err'} and $self->{'raw_json'}{'err'} ne 'OK') { }
|
|
|
0 |
5 |
elsif (defined $self->{'raw_json'}{'cInfo'}{'code'} and $self->{'raw_json'}{'cInfo'}{'code'} ne 'OK' and $self->{'raw_json'}{'cInfo'}{'code'} ne 'VH') { }
|
|
|
0 |
5 |
elsif (@{$self->{'raw_json'}{'svcResL'} // [];} == 0) { }
|
|
|
0 |
5 |
elsif ($self->{'raw_json'}{'svcResL'}[0]{'err'} ne 'OK') { }
|
|
556
|
0 |
32 |
if ($is_him)
|
|
562
|
0 |
32 |
if ($code eq "OPERATOR")
|
|
567
|
1 |
147 |
if ($code eq $message->{'code'} and $text eq $message->{'text'})
|
|
601
|
0 |
0 |
if ($self->{'errstr'})
|
|
607
|
0 |
0 |
if ($self->{'raw_json'}{'svcResL'}[0]{'res'}{'match'})
|
|
620
|
0 |
3 |
if ($self->{'errstr'})
|
|
634
|
0 |
3 |
if ($journey->{'polyG'} and @{$journey->{'polyG'}{'polyXL'} // [];})
|
|
639
|
0 |
3 |
if ($poly)
|
|
667
|
0 |
1 |
if ($self->{'errstr'})
|
|
698
|
0 |
1 |
if ($self->{'errstr'})
|
|
721
|
0 |
30 |
if ($@)
|
|
722
|
0 |
0 |
if ($@ =~ /Invalid local time for date in time zone/u) { }
|
|
757
|
0 |
0 |
if ($service and exists $hafas_instance->{$service}{'stopfinder'})
|
|
765
|
0 |
0 |
if (my $err = $sf->errstr)
|
|
779
|
0 |
0 |
if ($service and exists $hafas_instance->{$service}{'stopfinder'})
|
|
797
|
0 |
0 |
if ($self->{'station_info'})
|
|
820
|
0 |
0 |
unless (@shortest_names)
|
|
866
|
0 |
0 |
if (defined $service and exists $hafas_instance->{$service})
|
|
875
|
39 |
0 |
if (defined $self->{'active_service'})
|