| line |
true |
false |
branch |
|
52
|
0 |
4 |
if &Scalar::Util::reftype($response) ne "HASH" or ref $response->{'result'} ne "ARRAY"
|
|
58
|
0 |
4 |
if ref $result ne "HASH"
|
|
59
|
0 |
4 |
if exists $result->{'pls'} and not length $result->{'pls'}
|
|
63
|
28 |
0 |
unless length $config->{$key}
|
|
73
|
4 |
0 |
if (exists $config->{'inc'} and ref $config->{'inc'} eq "ARRAY")
|
|
87
|
0 |
4 |
if (exists $config->{'syntax'}{'perl'} and length $config->{'syntax'}{'perl'})
|
|
92
|
0 |
0 |
if (exists $config->{'syntax'}{'args'} and ref $config->{'syntax'}{'args'} eq "ARRAY" and scalar @{$config->{'syntax'}{'args'};})
|
|
117
|
4 |
0 |
if (length $config->{'pls'})
|
|
119
|
4 |
0 |
unless length $config->{'cmd'}
|
|
123
|
0 |
4 |
if (ref $config->{'plsargs'} eq "ARRAY")
|
|
125
|
0 |
0 |
if ref $config->{'args'} ne "ARRAY"
|
|
129
|
4 |
0 |
if ref $config->{'perltidy'} ne "HASH"
|
|
131
|
4 |
0 |
if (length $config->{'perltidyrc'})
|
|
133
|
4 |
0 |
unless length $config->{'perltidy'}{'perltidyrc'}
|