Branch Coverage

blib/lib/Catmandu/Fix.pm
Criterion Covered Total %
branch 45 124 36.2


line true false branch
61 1 479 if (is_code_ref($fix)) { }
1 478 elsif (ref $fix and ref($fix) =~ /^IO::/) { }
1 477 elsif (is_glob_ref($fix)) { }
327 150 elsif (ref $fix) { }
150 0 elsif (is_string($fix)) { }
79 10 140 if ($fix =~ /[^\s]/ and not $fix =~ /\(/)
103 470 22 if (is_hash_ref($data))
105 9 457 if ref $d and $d == $reject
109 9 13 if (is_array_ref($data))
114 3 10 if (is_code_ref($data))
118 0 5 if ref $d and $d == $reject
124 9 1 if (is_instance($data) and is_able($data, "does") and $data->does("Catmandu::Iterable"))
129 23 0 if ref $_[0]
153 151 1 unless $self->preprocess or $self->_hogan_vars
225 859 11 if ($fix->can('emit')) { }
11 0 elsif ($fix->can('fix')) { }
323 6 2 if (@$keys) { }
336 6 6 unless @$keys
342 0 6 if ($key =~ /^[0-9]+$/) { }
0 6 elsif ($key eq '*') { }
363 0 6 if ($key eq '$first') { }
0 6 elsif ($key eq '$last') { }
390 0 0 unless @$keys
396 0 0 if ($key =~ /^[0-9]+$/) { }
0 0 elsif ($key eq '*') { }
420 0 0 if ($key eq '$first' or $key eq '$last' or $key eq '$prepend' or $key eq '$append') { }
427 0 0 if ($key eq '$first') { }
0 0 elsif ($key eq '$last') { }
0 0 elsif ($key eq '$prepend') { }
0 0 elsif ($key eq '$append') { }
465 0 0 unless defined $key
470 0 0 if ($key =~ /^[0-9]+$/) { }
0 0 elsif ($key eq '$first') { }
0 0 elsif ($key eq '$last') { }
0 0 elsif ($key eq '*') { }
506 0 0 unless defined $key
511 0 0 if ($key =~ /^[0-9]+$/) { }
0 0 elsif ($key eq '$first') { }
0 0 elsif ($key eq '$last') { }
0 0 elsif ($key eq '$prepend') { }
0 0 elsif ($key eq '$append') { }
0 0 elsif ($key eq '*') { }
560 0 0 if ($cb)
565 0 0 if ($key =~ /^[0-9]+$/) { }
0 0 elsif ($key eq '$first' or $key eq '$last' or $key eq '*') { }
567 0 0 if $cb
569 0 0 if $cb
572 0 0 if $cb
574 0 0 if $cb
578 0 0 if $cb
579 0 0 if $key eq "\$first"
580 0 0 if $key eq "\$last"
581 0 0 if $key eq "*"
582 0 0 if $cb
586 0 0 if $cb
588 0 0 if $cb
592 0 0 if ($cb)
604 2 6 if ($key =~ /^[0-9]+$/) { }
1 5 elsif ($key eq '$first') { }
1 4 elsif ($key eq '$last') { }
2 2 elsif ($key eq '*') { }
615 2 0 if $key > 0