Branch Coverage

blib/lib/Mail/DomainKeys/Message.pm
Criterion Covered Total %
branch 40 78 51.2


line true false branch
24 6 0 if ($prms{'File'}) { }
25 6 0 if (ref $prms{'File'} and ref $prms{'File'} eq 'GLOB' || $prms{'File'}->isa('IO::Handle')) { }
39 0 6 if ($prms{'HeadString'}) { }
42 0 0 if /^$/
43 0 0 if (/^\s/ and $head[$lnum - 1])
57 6 54 if /^$/
58 18 36 if (/^\s/ and $head[$lnum - 1])
77 0 36 unless $hdr->key
80 6 30 if ($hdr->key =~ /^From$/i and not $seen{'FROM'}) { }
0 30 elsif ($hdr->key =~ /^Sender$/i and not $seen{'SNDR'}) { }
6 48 elsif ($hdr->key =~ /^DomainKey-Signature$/i and not $seen{'SIGN'}) { }
96 0 6 if ($prms{'BodyReference'}) { }
118 0 6 unless $self->signature->method
121 3 3 if $self->signature->method eq 'nofws'
124 3 0 if $self->signature->method eq 'simple'
132 0 0 unless my $hdrs = shift()
139 0 0 if ($hmap{lc $hdr->key})
157 3 15 unless $hdr->signed or $self->signature->signing
159 0 15 unless $self->signature->wantheader($hdr->key)
168 0 3 if ($self->signature->signheaderlist)
174 3 21 if /[^\s\r\n]/
177 21 0 if /^[\s\r\n]*$/
181 3 0 if scalar @{$$self{'BODY'};}
201 3 15 unless $hdr->signed or $self->signature->signing
203 0 15 unless $self->signature->wantheader($hdr->key)
212 0 3 if ($self->signature->signheaderlist)
218 3 19 if /[^\r\n]/
221 19 0 if /^[\r\n]*$/
225 3 0 if scalar @{$$self{'BODY'};}
261 0 6 unless $self->signed
272 0 0 if @_
281 0 12 if @_
290 0 6 if @_
299 0 12 if @_
308 0 0 if $self->sender
311 0 0 if $self->from
320 0 75 if @_
329 6 0 if $self->signature
338 0 0 if $self->signed and $self->signature->testing