| line |
true |
false |
branch |
|
88
|
0 |
1 |
$^O eq 'MSWin32' ? : |
|
89
|
0 |
1 |
if (not $force_internal_services_data and -f -r $services_file) { } |
|
90
|
0 |
0 |
unless open $fh, "<", $services_file |
|
99
|
1 |
372 |
if $line =~ /^#/u |
|
101
|
2 |
370 |
unless ($line // "") =~ /^$URI::scheme_re\s+/u |
|
106
|
71 |
299 |
if @other_services |
|
113
|
1 |
0 |
if grep {$_ eq ":InternalServicesData";} @opts |
|
139
|
25 |
0 |
defined $uri ? : |
|
148
|
22 |
3 |
if $uri =~ s/$scheme_re//u |
|
149
|
2 |
23 |
unless $scheme |
|
150
|
1 |
22 |
unless $SERVICE_PORTS{lc $scheme} |
|
164
|
30 |
3 |
unless (@_) |
|
165
|
0 |
30 |
unless $$self =~ /$scheme_re/u |
|
173
|
2 |
1 |
if (defined $new and length $new) { } |
|
175
|
0 |
2 |
unless $new =~ /$scheme_re_sans_colon$/u |
|
176
|
1 |
1 |
unless $SERVICE_PORTS{lc $new} |
|
178
|
1 |
0 |
if $$self =~ s/$scheme_re//u |
|
184
|
1 |
0 |
if $$self =~ /$scheme_re/u |