| line |
true |
false |
branch |
|
33
|
13 |
4 |
if defined $_ |
|
|
13 |
4 |
if grep {length $_ if defined $_;} $p{'scheme'} |
|
35
|
20 |
14 |
if defined $_ |
|
|
3 |
14 |
if (grep {length $_ if defined $_;} $p{'username'}, $p{'password'}) |
|
38
|
0 |
3 |
if ($uri->can('user') and $uri->can('password')) { } |
|
49
|
14 |
20 |
if defined $_ |
|
|
14 |
20 |
if grep {length $_ if defined $_;} $p{$k} |
|
52
|
7 |
10 |
if ($p{'path'}) |
|
53
|
5 |
2 |
if (ref $p{'path'}) { } |
|
64
|
1 |
16 |
if defined $_ |
|
|
1 |
16 |
if grep {length $_ if defined $_;} $p{'fragment'} |
|
85
|
4 |
12 |
if ($sep ne '&' and $uri->query) |
|
101
|
27 |
43 |
if defined $_ |
|
102
|
25 |
10 |
if grep {length $_ if defined $_;} map({$p->{$_};} 'host', 'fragment') |
|
108
|
7 |
3 |
ref $p->{'path'} ? : |
|
|
8 |
2 |
if ref $p->{'path'} ? @{$p->{'path'};} : defined $p->{'path'} && length $p->{'path'} |
|
110
|
0 |
2 |
if keys %{$$p{'query'};} |