| line |
true |
false |
branch |
|
17
|
0 |
5 |
if scalar @args % 2 |
|
26
|
3 |
2 |
unless ($$self{'kvPrefix'} =~ m[^/]) |
|
29
|
3 |
2 |
unless ($$self{'kvPrefix'} =~ m[/$]) |
|
33
|
0 |
5 |
if $args{'ssl_opts'} |
|
67
|
12 |
2 |
if $ret and $ret->is_success |
|
69
|
0 |
2 |
if ($@) { } |
|
82
|
0 |
5 |
unless my $key = shift() |
|
85
|
0 |
5 |
if scalar @args % 2 |
|
92
|
1 |
4 |
if $args{'recurse'} |
|
109
|
3 |
3 |
unless $value |
|
120
|
0 |
4 |
unless my $key = shift() |
|
121
|
0 |
4 |
unless my $value = shift() |
|
122
|
2 |
2 |
if (ref $value) |
|
127
|
0 |
4 |
if scalar @args % 2 |
|
143
|
0 |
3 |
unless my $key = shift() |
|
146
|
0 |
3 |
if scalar @args % 2 |