| line |
true |
false |
branch |
|
23
|
3 |
8 |
if ($string =~ /^---\n/) |
|
27
|
3 |
5 |
if ($string =~ /^\$VAR\d = /) |
|
33
|
5 |
0 |
if (my(@lines) = split(/\n/, $string, 0)) |
|
38
|
0 |
28 |
if ($_ =~ /^#/) |
|
40
|
25 |
3 |
if ($_ =~ /\w/) |
|
41
|
17 |
8 |
if ($_ =~ /\Q$delimiter\E/) { } |
|
49
|
3 |
2 |
if ($delimited_lines and not $not_delimited_lines) |
|
62
|
0 |
3 |
if ref $string |
|
64
|
3 |
0 |
if (my $type = data_type($string)) |
|
66
|
1 |
2 |
if $type eq 'csv' |
|
68
|
1 |
1 |
if $type eq 'yaml' |
|
70
|
1 |
0 |
if $type eq 'dumper' |
|
97
|
0 |
2 |
unless ref $ref |
|
108
|
0 |
2 |
unless ref $ref |
|
115
|
0 |
2 |
unless ref $ref |
|
124
|
0 |
1 |
if ref $string |
|
131
|
0 |
1 |
if ref $string |
|
137
|
0 |
1 |
if defined $VAR2 |
|
143
|
0 |
1 |
if ref $string |