| line |
true |
false |
branch |
|
27
|
0 |
15 |
if ($@) { } |
|
39
|
118 |
22 |
if (defined $field) { } |
|
40
|
1 |
117 |
unless $field =~ /\A\s*[+-]?(?:\d+\.?\d*|\.\d+)(?:[eE][+-]?\d+)?\s*\z/ |
|
43
|
1 |
116 |
if $field < 0 |
|
50
|
22 |
116 |
if (defined $sep) { } |
|
51
|
1 |
21 |
if ref $sep |
|
53
|
3 |
18 |
unless length $sep == 1 |
|
55
|
2 |
14 |
if $sep eq "\n" or $sep eq "\r" or $sep eq "\0" |
|
69
|
17 |
343 |
if $line eq "" |
|
70
|
35 |
308 |
if $line =~ /^#/ |
|
73
|
22 |
286 |
unless @parts > 1 |
|
76
|
4 |
282 |
unless length $key |
|
79
|
200 |
82 |
if ($field == 0) { } |
|
|
59 |
23 |
elsif ($field <= $#parts) { } |
|
90
|
13 |
269 |
if defined $value and not length $value |
|
101
|
13 |
13 |
unless defined $field |
|
103
|
2 |
24 |
defined $sep ? : |
|
106
|
0 |
26 |
unless $av |