| line |
true |
false |
branch |
|
30
|
90 |
59 |
if (defined $base) { } |
|
46
|
0 |
149 |
unless @res |
|
52
|
0 |
90 |
unless @res |
|
58
|
12 |
2 |
unless $path =~ m[^/]u |
|
60
|
4 |
10 |
if length $qs and not $qs =~ /^\?/u |
|
62
|
1 |
13 |
if length $hash and not $hash =~ /^#/u |
|
81
|
3 |
2 |
unless defined $v |
|
88
|
3 |
3 |
unless defined $v |
|
112
|
4 |
188 |
if scalar @uriParts > 2 |
|
117
|
11 |
177 |
unless $uri =~ m[^[a-zA-Z0-9._~:\@!\$&')(*+,;=%/-]*$]u |
|
120
|
14 |
156 |
if scalar @parts >= 3 and $parts[0] ne 'at:' || length $parts[1] |
|
121
|
7 |
156 |
if scalar @parts < 3 |
|
123
|
125 |
31 |
if ($parts[2] =~ /^did:/u) { } |
|
129
|
110 |
22 |
if (scalar @parts >= 4) |
|
130
|
8 |
102 |
unless (length $parts[3]) |
|
140
|
69 |
37 |
if (scalar @parts >= 5) |
|
141
|
4 |
65 |
unless length $parts[4] |
|
145
|
8 |
94 |
if scalar @parts >= 6 |
|
146
|
0 |
94 |
if scalar @uriParts >= 2 and not defined $fragmentPart |
|
147
|
24 |
70 |
if (defined $fragmentPart) |
|
148
|
6 |
18 |
if length $fragmentPart == 0 or substr($fragmentPart, 0, 1) ne "/" |
|
152
|
4 |
14 |
unless $fragmentPart =~ m<^/[a-zA-Z0-9._~:\@!\$&')(*+,;=%[\]/-]*$>u |
|
155
|
2 |
82 |
if length $uri > 8192 |
|
165
|
84 |
108 |
unless $rm and keys %+ |
|
178
|
70 |
20 |
if (defined $groups{'collection'}) |
|
186
|
2 |
82 |
if length $uri > 8192 |
|
229
|
1 |
3 |
unless @v |