| line |
true |
false |
branch |
|
57
|
0 |
4 |
ref $_[0] ? : |
|
60
|
0 |
4 |
unless my $file = shift() |
|
62
|
0 |
4 |
unless -e $file |
|
63
|
0 |
4 |
unless -f _ |
|
64
|
0 |
4 |
unless -r _ |
|
69
|
0 |
4 |
unless open CFG, $file |
|
79
|
0 |
58 |
ref $_[0] ? : |
|
83
|
0 |
58 |
unless defined $_[0] |
|
84
|
4 |
54 |
unless length $_[0] |
|
85
|
0 |
54 |
unless ($_[0] =~ /[\012\015]+$/) |
|
97
|
56 |
2 |
if ($lines[0] =~ /^---(?:\s*(.+)\s*)?$/) |
|
101
|
17 |
39 |
if (defined $1) |
|
107
|
11 |
30 |
if (not @lines or $lines[0] =~ /^---(?:\s*(.+)\s*)?$/) { } |
|
|
18 |
12 |
elsif ($lines[0] =~ /^\s*\-/) { } |
|
|
12 |
0 |
elsif ($lines[0] =~ /^(\s*)\w/) { } |
|
141
|
0 |
0 |
if $errstr |
|
147
|
17 |
94 |
if $string eq '~' |
|
148
|
10 |
84 |
if ($string =~ /^'(.*?)'$/) |
|
149
|
0 |
10 |
unless defined $1 |
|
154
|
5 |
79 |
if ($string =~ /^"((?:\\.|[^"])*)"$/) |
|
158
|
0 |
3 |
length $1 > 1 ? : |
|
161
|
0 |
79 |
if ($string =~ /^['"]/) |
|
166
|
77 |
2 |
unless ($string eq '>' or $string eq '|') |
|
173
|
0 |
2 |
unless @$lines |
|
178
|
0 |
2 |
if (defined $$indent[-2] and $$indent[-1] <= $$indent[-2]) |
|
186
|
1 |
5 |
unless length $1 >= $$indent[-1] |
|
190
|
1 |
1 |
$string eq '>' ? : |
|
199
|
2 |
42 |
if (length $1 < $$indent[-1]) { } |
|
|
0 |
42 |
elsif (length $1 > $$indent[-1]) { } |
|
206
|
3 |
39 |
if ($$lines[0] =~ /^(\s*\-\s+)\S+\s*:(?:\s+|$)/) { } |
|
|
32 |
7 |
elsif ($$lines[0] =~ /^\s*\-(\s*)(.+?)\s*$/) { } |
|
|
7 |
0 |
elsif ($$lines[0] =~ /^\s*\-\s*$/) { } |
|
225
|
0 |
7 |
if ($$lines[0] =~ /^(\s*)\-/) { } |
|
|
7 |
0 |
elsif ($$lines[0] =~ /^(\s*)\w/) { } |
|
227
|
0 |
0 |
if ($$indent[-1] == $indent2) { } |
|
270
|
13 |
72 |
if (length $1 < $$indent[-1]) { } |
|
|
0 |
72 |
elsif (length $1 > $$indent[-1]) { } |
|
278
|
0 |
72 |
unless ($$lines[0] =~ s/^\s*(\S+)\s*:(\s+|$)//) |
|
284
|
62 |
10 |
if (length $$lines[0]) { } |
|
296
|
4 |
6 |
if ($$lines[0] =~ /^(\s*)-/) { } |
|
|
6 |
0 |
elsif ($$lines[0] =~ /^(\s*)./) { } |
|
305
|
0 |
6 |
if ($$indent[-1] == $indent2) { } |
|
327
|
0 |
1 |
unless my $file = shift() |
|
330
|
0 |
1 |
unless open CFG, '>' . $file |
|
339
|
3 |
25 |
unless @$self |
|
348
|
7 |
22 |
if (not defined $cursor) { } |
|
|
7 |
15 |
elsif (not ref $cursor) { } |
|
|
9 |
6 |
elsif (ref $cursor eq 'ARRAY') { } |
|
|
6 |
0 |
elsif (ref $cursor eq 'HASH') { } |
|
378
|
7 |
47 |
unless defined $str |
|
379
|
2 |
45 |
if ($str =~ /$ESCAPE_CHAR/) |
|
386
|
7 |
38 |
if (length $str == 0 or $str =~ /\s/) |
|
398
|
16 |
5 |
if (not ref $el) { } |
|
|
0 |
5 |
elsif (ref $el eq 'ARRAY') { } |
|
|
5 |
0 |
elsif (ref $el eq 'HASH') { } |
|
427
|
31 |
5 |
if (not ref $el) { } |
|
|
2 |
3 |
elsif (ref $el eq 'ARRAY') { } |
|
|
3 |
0 |
elsif (ref $el eq 'HASH') { } |
|
452
|
0 |
0 |
$ERROR{$_[1]} ? : |