Branch Coverage

blib/lib/Mail/Message/Replace/MailInternet.pm
Criterion Covered Total %
branch 0 60 0.0


line true false branch
36 0 0 @_ % 2 ? :
37 0 0 if $class eq "Mail::Internet"
50 0 0 exists $args->{'Modify'} ? :
53 0 0 if defined $self->{'raw_data'}
60 0 0 unless $get_head or $get_body
63 0 0 if (ref $data eq 'ARRAY') { }
0 0 elsif (ref $data eq 'GLOB' or builtin::blessed($data) and $data->isa('IO::Handle')) { }
75 0 0 unless @$lines
82 0 0 if ($get_head) { }
83 0 0 $lines->[0] =~ /^From / ? :
91 0 0 if defined $from
98 0 0 if $get_body
117 0 0 if (@_) { }
125 0 0 unless builtin::blessed($thing)
159 0 0 if (open my $head, "<:raw", $headtemp)
191 0 0 if (my $filename = delete $self->{'File'}) { }
0 0 elsif (my $sign = delete $self->{'Signature'}) { }
198 0 0 unless defined $sig
202 0 0 if defined $set
218 0 0 if @_
255 0 0 @_ ? :
263 0 0 unless (@_)
265 0 0 defined $body ? :
268 0 0 ref $_[0] eq 'ARRAY' ? :
285 0 0 if defined $stripped
293 0 0 unless my $body = $self->body
299 0 0 if $body->nrLines == @body
313 0 0 unless (defined $host)
315 0 0 if defined $hosts
347 0 0 $class eq 'Mail::Internet' ? :