| line |
true |
false |
branch |
|
32
|
0 |
24 |
unless defined $format
|
|
36
|
0 |
24 |
if @items == 1
|
|
42
|
0 |
24 |
unless eval {
|
|
47
|
5 |
19 |
unless ref $value
|
|
53
|
11 |
13 |
if $multiple or not test_all_equal(@$separators)
|
|
75
|
0 |
4 |
unless defined $regex
|
|
83
|
0 |
4 |
unless $record->{$input} =~ /$regex/
|
|
97
|
0 |
63 |
unless defined $separator
|
|
98
|
0 |
63 |
if ref $separator eq "CODE"
|
|
100
|
16 |
47 |
if $ref eq "Regexp"
|
|
101
|
0 |
47 |
if $ref
|
|
109
|
0 |
25 |
if ref $value eq "CODE"
|
|
111
|
16 |
9 |
if not $ref or $ref eq "Regexp"
|
|
112
|
0 |
25 |
if $ref ne "ARRAY"
|
|
117
|
0 |
31 |
if ($ref eq 'Regexp') { }
|
|
|
30 |
1 |
elsif ($part =~ /\A(?:
|
|
|
0 |
1 |
elsif ($part eq 'quoted') { }
|
|
|
1 |
0 |
elsif ($part eq 'specials') { }
|
|
|
0 |
0 |
elsif ($ref) { }
|
|
149
|
7 |
18 |
if ($flag_for{'single_quoted'})
|
|
153
|
3 |
22 |
if ($flag_for{'double_quoted'})
|
|
157
|
7 |
18 |
if ($flag_for{'escaped'})
|
|
162
|
16 |
9 |
if ($flag_for{'whatever'})
|
|
178
|
0 |
25 |
if ($vdecode) { }
|
|
|
11 |
14 |
elsif ($escape or $squote or $dquote) { }
|
|
192
|
0 |
41 |
unless my $len = length $value
|
|
194
|
5 |
36 |
if ($dquote and $first eq '"') { }
|
|
|
11 |
25 |
elsif ($squote and $first eq q[']) { }
|
|
|
21 |
4 |
elsif ($escape) { }
|
|
195
|
0 |
5 |
unless $len > 1 and substr($value, -1, 1) eq "\""
|
|
203
|
0 |
11 |
unless $len > 1 and substr($value, -1, 1) eq "'"
|
|
226
|
0 |
16 |
unless defined $separators
|
|
232
|
12 |
4 |
if (defined $keys) { }
|
|
235
|
0 |
12 |
if $delta < 0 or $delta > 1
|
|
249
|
41 |
16 |
if $i <= $#$separators
|
|
253
|
16 |
0 |
if $delta > 0
|
|
269
|
0 |
16 |
unless my(@values) = $record->{$input} =~ /$regex/
|
|
275
|
6 |
10 |
if $trim
|
|
276
|
7 |
9 |
if ($decode)
|
|
277
|
0 |
7 |
unless (eval {
|
|
279
|
0 |
0 |
unless ref $e
|
|
280
|
0 |
0 |
if ref $e eq "HASH"
|
|
285
|
12 |
4 |
if ($n_keys) { }
|
|
287
|
0 |
12 |
if $n_values < $n_keys
|
|
315
|
13 |
0 |
defined $keys ? :
|
|
325
|
1 |
15 |
if $trim
|
|
328
|
5 |
11 |
if $n_values + $allow_missing < $n_keys
|
|
340
|
13 |
0 |
if $n_keys
|
|
345
|
0 |
0 |
if $trim
|
|
364
|
0 |
9 |
unless defined $separator
|
|
371
|
5 |
4 |
defined $keys ? :
|
|
383
|
0 |
10 |
if ($go_global) { }
|
|
386
|
0 |
0 |
unless $record->{$input} =~ /
|
|
399
|
0 |
10 |
unless $record->{$input} =~ /
|
|
410
|
8 |
2 |
if $trim
|
|
411
|
5 |
5 |
if ($decode)
|
|
412
|
0 |
5 |
unless (eval {
|
|
414
|
0 |
0 |
unless ref $e
|
|
415
|
0 |
0 |
if ref $e eq "HASH"
|
|
420
|
6 |
4 |
if ($n_keys) { }
|
|
422
|
0 |
6 |
if $n_values + $allow_missing < $n_keys or $n_values - $allow_surplus > $n_keys
|
|
445
|
3 |
0 |
unless $args{'defaults'}
|
|
461
|
0 |
3 |
unless exists $outcome->{'hash'}
|
|
479
|
4 |
0 |
unless $args{'defaults'}
|
|
506
|
2 |
0 |
$has_key ? :
|