Branch Coverage

blib/lib/Filter/Simple.pm
Criterion Covered Total %
branch 34 50 68.0


line true false branch
16 0 7 if (@_ > 1) { }
123 79 631 if (ref $_) { }
530 101 elsif ($instr) { }
128 22 2 if ($type =~ /^code/) { }
134 64 84 ref $_ ? :
164 0 147 if (not defined $_) { }
43 104 elsif (/$placeholder/s) { }
169 13 49 if ($str =~ s/^(<<[^\r\n]+)$nl//) { }
2 94 elsif (@following_lines and $str =~ s/^([^\n\r]*$nl)//) { }
219 0 6 unless exists $extractor_for{$what}
220 0 6 unless ref $how eq 'CODE'
247 7 0 if (not defined $terminator) { }
0 0 elsif (not ref $terminator or ref $terminator eq 'Regexp') { }
0 0 elsif (ref $terminator ne 'HASH') { }
0 0 elsif (not exists $terminator->{'terminator'}) { }
265 0 103 if $status < 0
266 3 100 if ($terminator{'terminator'} and /$terminator{'terminator'}/)
275 4 7 unless $count
277 7 0 unless $status < 0
278 3 4 if (defined $lastline)
279 0 3 if (defined $terminator{'becomes'}) { }
3 0 elsif ($lastline =~ /$def_terminator/) { }
289 1 6 if ($prev_import) { }
1 5 elsif ($class->isa('Exporter')) { }
302 0 2 if $prev_unimport