Branch Coverage

lib/Sisimai/Message.pm
Criterion Covered Total %
branch 82 106 77.3


line true false branch
43 5643 1 unless exists $argvs->{$e}
44 0 1 unless ref $argvs->{$e} eq "ARRAY"
45 0 1 unless scalar @{$argvs->{$e};}
51 0 2822 unless my $aftersplit = "Sisimai::Message"->divideup(\$email)
58 2822 0 if ($thing->{'header'}{'subject'})
61 149 2673 'Sisimai::MIME'->is_mimeencoded(\$s) ? :
64 29 2793 if (lc($q) =~ /\A[ \t]*fwd?:[ ]*(.*)\z/)
76 9 2813 unless my $bouncedata = "Sisimai::Message"->parse(%$param)
77 0 2813 unless keys %$bouncedata
82 25 2788 ref $r ? :
102 5645 1 unless exists $argvs->{$e}
103 0 1 unless ref $argvs->{$e} eq "ARRAY"
104 0 1 unless scalar @{$argvs->{$e};}
106 1 0 if $e eq "order"
107 1 0 unless $e eq "load"
116 0 0 if $@
123 0 6 if grep {$e eq $_;} @$tobeloaded
138 240 2582 if rindex($$email, "\r\n") > -1
139 0 2822 if $$email =~ /[ \t]+$/
142 0 2822 unless $block->[1]
143 0 2822 unless $block->[2]
145 387 2435 if (substr($block->[1], 0, 5) eq 'From ') { }
153 2822 0 unless $block->[1] =~ /\n\z/
159 2822 5644 $e eq 'text/html' ? :
162 8270 614 if $p0 < 0
163 196 418 if $p1 < 0
193 4918 692 if ($$argv0 =~ /^Received:/m)
200 2822 2788 unless $argv1
201 226 2562 unless length $headermaps->{'subject'}
204 34 2528 if ('Sisimai::String'->is_8bit(\$headermaps->{'subject'})) { }
212 0 34 if $@
217 241 2287 if ('Sisimai::MIME'->is_mimeencoded(\$headermaps->{'subject'})) { }
221 301 5 if "Sisimai::MIME"->is_mimeencoded(\$v)
261 438 2384 if (index($mesgformat, 'text/') == 0) { }
263 5 433 if ($ctencoding eq 'base64') { }
45 388 elsif ($ctencoding eq 'quoted-printable') { }
273 0 438 if $mesgformat =~ m[text/html;?]
276 1958 426 if (index($mesgformat, "multipart/") == 0)
279 1914 44 if length $$p
284 553 2269 if (ref $hookmethod eq "CODE")
288 0 553 if $@
303 0 1 if exists $haveloaded->{$r}
307 1 0 if $parseddata
312 587 16868 if exists $haveloaded->{$r}
317 2640 14228 if $parseddata
320 181 0 unless ($haveloaded->{'Sisimai::RFC3464'})
326 131 50 if $parseddata
329 50 0 unless ($haveloaded->{'Sisimai::ARF'})
332 35 15 if "Sisimai::ARF"->is_arf($mailheader)
333 35 15 if $parseddata
336 15 0 unless ($haveloaded->{'Sisimai::RFC3834'})
341 6 9 if $parseddata
346 9 2813 unless $parseddata