| line |
true |
false |
branch |
|
51
|
0 |
4 |
if &Scalar::Util::reftype($response) ne "HASH" or ref $response->{'result'} ne "ARRAY"
|
|
57
|
0 |
4 |
if ref $result ne "HASH"
|
|
58
|
0 |
4 |
if exists $result->{'pls'} and not length $result->{'pls'}
|
|
62
|
28 |
0 |
unless length $config->{$key}
|
|
72
|
4 |
0 |
if (exists $config->{'inc'} and ref $config->{'inc'} eq "ARRAY")
|
|
86
|
0 |
4 |
if (exists $config->{'syntax'}{'perl'} and length $config->{'syntax'}{'perl'})
|
|
91
|
0 |
0 |
if (exists $config->{'syntax'}{'args'} and ref $config->{'syntax'}{'args'} eq "ARRAY" and scalar @{$config->{'syntax'}{'args'};})
|
|
114
|
4 |
0 |
if (length $config->{'pls'})
|
|
116
|
4 |
0 |
unless length $config->{'cmd'}
|
|
120
|
0 |
4 |
if (ref $config->{'plsargs'} eq "ARRAY")
|
|
122
|
0 |
0 |
if ref $config->{'args'} ne "ARRAY"
|
|
126
|
4 |
0 |
if ref $config->{'perltidy'} ne "HASH"
|
|
128
|
4 |
0 |
if (length $config->{'perltidyrc'})
|
|
130
|
4 |
0 |
unless length $config->{'perltidy'}{'perltidyrc'}
|