Branch Coverage

blib/lib/Data/Tubes/Plugin/Parser.pm
Criterion Covered Total %
branch 82 130 63.0


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 ? :