line |
true |
false |
branch |
22
|
9 |
61 |
if ($@) { } |
|
57 |
4 |
elsif (defined $value) { } |
29
|
12 |
45 |
if (eval {
do {
$value->isa('Config::General::Hierarchical')
}
}) { } |
49
|
1 |
22 |
unless $file_name |
58
|
5 |
17 |
if $help |
70
|
1 |
16 |
if ($parser_class) { } |
81
|
1 |
16 |
if $@ |
83
|
2 |
14 |
if $json |
86
|
2 |
12 |
$check && scalar @errors ? : |
93
|
5 |
9 |
if ($file) |
100
|
1 |
4 |
if (scalar @files > 1) |
107
|
50 |
3 |
ref $_ ? : |
142
|
4 |
20 |
if ($mcp[$j] ne $this[$j]) |
154
|
1 |
1 |
if caller ne 'main' |
171
|
4 |
10 |
if ($@) { } |
|
8 |
2 |
elsif (defined $value) { } |
175
|
2 |
6 |
if (eval {
do {
$value->isa('Config::General::Hierarchical')
}
}) { } |
197
|
7 |
7 |
if ($fixed_length) { } |
202
|
3 |
28 |
unless ref $_ |
206
|
17 |
11 |
if $len > $maxlen |
213
|
3 |
28 |
unless ref $_ |
217
|
13 |
15 |
if $len > $maxlen |
220
|
3 |
4 |
if ($file) { } |
228
|
2 |
5 |
if $file |
239
|
1 |
18 |
if (substr($param, 0, 1) ne '-') |
245
|
7 |
11 |
if (substr($param, 0, 2) eq '--') { } |
246
|
1 |
6 |
if ($param eq '--check') { } |
|
2 |
4 |
elsif ($param eq '--file') { } |
|
1 |
3 |
elsif ($param eq '--fixed-length') { } |
|
1 |
2 |
elsif ($param eq '--help') { } |
|
1 |
1 |
elsif ($param eq '--json') { } |
271
|
2 |
12 |
if ($p eq 'c') { } |
|
3 |
9 |
elsif ($p eq 'f') { } |
|
1 |
8 |
elsif ($p eq 'h') { } |
|
1 |
7 |
elsif ($p eq 'j') { } |
|
6 |
1 |
elsif ($p eq 'l') { } |
301
|
2 |
4 |
unless (ref $value) |
322
|
36 |
9 |
unless (ref $value) |
323
|
34 |
2 |
unless $value =~ /\n/ |
327
|
1 |
1 |
if $value =~ /\n$/ |
336
|
2 |
16 |
if $val =~ /\n/ |
339
|
8 |
1 |
if $simple |