Branch Coverage

blib/lib/MIME/Parser/Reader.pm
Criterion Covered Total %
branch 23 56 41.0


line true false branch
144 20 572 if @_
163 572 0 if @_ == 1
165 336 236 if ($eos =~ /^(DONE|EOF)/) { }
236 0 elsif ($eos =~ /^(DELIM|CLOSE) (.*)$/) { }
169 236 0 $2 eq $self->{'Bounds'}[0] ? :
186 340 343 if $fh->isa('IO::File') or $fh->isa('IO::Handle')
187 343 0 if ref $fh eq 'GLOB'
240 340 0 if ($n_in) { }
241 340 0 if ($n_out) { }
244 997 2329 if $normalize_newlines
245 156 3170 if (substr($_, 0, 2) eq '--')
247 141 15 if ($bh{$maybe})
249 166 828 if ($thx and $th{$_})
256 0 0 if $normalize_newlines
257 0 0 if (substr($_, 0, 2) eq '--')
259 0 0 if ($bh{$maybe})
261 0 0 if ($thx and $th{$_})
267 0 0 if ($n_out) { }
270 0 0 if $normalize_newlines
271 0 0 if (substr($_, 0, 2) eq '--')
273 0 0 if ($bh{$maybe})
275 0 0 if ($thx and $th{$_})
282 0 0 if $normalize_newlines
283 0 0 if (substr($_, 0, 2) eq '--')
285 0 0 if ($bh{$maybe})
287 0 0 if ($thx and $th{$_})
296 125 215 if $eos =~ /^(DELIM|CLOSE)/ and not $keep_newline && $last =~ /^[\r\n]\z/
315 0 37 unless open my $fh, '>', \$data