| line |
true |
false |
branch |
|
17
|
0 |
6 |
if scalar @args % 2 |
|
22
|
0 |
6 |
if $args{'kvPrefix'} |
|
27
|
4 |
2 |
unless ($$self{'kv_prefix'} =~ m[^/]) |
|
30
|
4 |
2 |
unless ($$self{'kv_prefix'} =~ m[/$]) |
|
34
|
0 |
6 |
if $args{'ssl_opts'} |
|
68
|
1 |
26 |
if $ret->status_line =~ /^404 / |
|
69
|
13 |
13 |
if $ret and $ret->is_success |
|
71
|
0 |
13 |
if ($@) { } |
|
85
|
0 |
6 |
unless defined $key |
|
88
|
0 |
6 |
if scalar @args % 2 |
|
95
|
2 |
4 |
if $args{'recurse'} |
|
112
|
3 |
3 |
unless $value |
|
124
|
0 |
6 |
unless defined $key |
|
125
|
0 |
6 |
unless my $value = shift() |
|
126
|
3 |
3 |
if (ref $value) |
|
131
|
0 |
6 |
if scalar @args % 2 |
|
148
|
0 |
4 |
unless defined $key |
|
151
|
0 |
4 |
if scalar @args % 2 |
|
156
|
1 |
3 |
if $args{'recurse'} |