| line |
true |
false |
branch |
|
162
|
2 |
83 |
if ref $_[0] |
|
165
|
0 |
85 |
unless defined $value |
|
168
|
1 |
84 |
if $value =~ m<[^a-z0-9\:/\?\#\[\]\@\!\$\&\'\(\)\*\+\,\;\=\.\-\_\~\%]>i |
|
171
|
1 |
83 |
if $value =~ /%[^0-9a-f]/i |
|
172
|
3 |
80 |
if $value =~ /%[0-9a-f](:?[^0-9a-f]|$)/i |
|
178
|
0 |
69 |
unless defined $scheme and length $scheme and defined $path |
|
181
|
60 |
9 |
if (defined $authority and length $authority) { } |
|
182
|
0 |
60 |
unless length $path == 0 or $path =~ m[^/] |
|
186
|
1 |
8 |
if $path =~ m[^//] |
|
190
|
1 |
67 |
unless lc($scheme) =~ /^[a-z][a-z0-9\+\-\.]*$/ |
|
194
|
59 |
8 |
if (defined $authority and length $authority) |
|
198
|
5 |
62 |
if (defined $query and length $query) |
|
201
|
0 |
67 |
if (defined $fragment and length $fragment) |
|
219
|
6 |
54 |
unless is_uri($value) |
|
223
|
0 |
54 |
unless $scheme |
|
225
|
15 |
39 |
if ($allowed_scheme == 1) { } |
|
|
15 |
24 |
elsif ($allowed_scheme == 2) { } |
|
|
24 |
0 |
elsif ($allowed_scheme == 3) { } |
|
226
|
2 |
13 |
unless lc $scheme eq 'http' |
|
228
|
2 |
13 |
unless lc $scheme eq 'https' |
|
230
|
1 |
23 |
unless lc($scheme) =~ /^https?$/ |
|
237
|
4 |
45 |
unless $authority |
|
244
|
8 |
37 |
unless (Data::Validate::Domain::is_domain($authority, $options) or Data::Validate::IP::is_ipv4($authority)) |
|
252
|
4 |
33 |
if $port |
|
256
|
4 |
33 |
if (defined $query and length $query) |
|
259
|
0 |
37 |
if (defined $fragment and length $fragment) |
|
326
|
4 |
13 |
if ref $_[0] |
|
379
|
12 |
54 |
if ref $_[0] |
|
482
|
1 |
22 |
if ref $_[0] |
|
520
|
1 |
21 |
if ($value =~ /$rn.*$rn/msx) |
|
523
|
1 |
20 |
if ($value =~ /$npdi.*$npdi/msx) |
|
526
|
1 |
19 |
if ($value =~ /$cic.*$cic/msx) |
|
542
|
14 |
5 |
if ($value =~ /$enum_dip_indicator.*$enum_dip_indicator/msx) |