Branch Coverage

blib/lib/Mail/DKIM/Signer.pm
Criterion Covered Total %
branch 54 78 69.2


line true false branch
64 20 2 if (defined $self->{'KeyFile'})
69 10 10 unless ($self->{'Algorithm'})
74 10 10 unless ($self->{'Method'})
79 10 10 unless ($self->{'Domain'})
84 10 10 unless ($self->{'Selector'})
97 8 12 if (UNIVERSAL::isa($policy, 'CODE')) { }
2 20 elsif ($policy and $policy->can('apply')) { }
101 1 7 unless (@{$self->{'algorithms'};} or $default_sig)
110 0 2 unless (@{$self->{'algorithms'};} or $default_sig)
116 13 6 unless (@{$self->{'algorithms'};})
122 0 13 unless ($self->{'Algorithm'})
125 0 13 unless ($self->{'Method'})
128 0 13 unless ($self->{'Domain'})
131 0 13 unless ($self->{'Selector'})
153 2 11 $self->{'Identity'} ? :
4 9 $self->{'Timestamp'} ? :
2 11 $self->{'Expiration'} ? :
185 1 19 if (defined $key and not ref $key)
189 0 20 unless $key
209 0 20 unless my $algorithm_class = $signature->get_algorithm_class($signature->algorithm)
223 3 0 if (@_ == 1)
232 3 0 if (@_ == 1)
261 0 4 if $header eq lc $header
262 0 4 if (exists $self->{'ExtendedHeaders'}{lc $header}) { }
267 0 0 if ($first eq '+' or $second eq '+') { }
0 0 elsif ($first eq '*' or $second eq '*') { }
287 26 2 unless (exists $self->{'ExtendedHeaders'}{lc $default})
295 7 3 if (not exists $$header_counts{lc $header}) { }
307 1 29 if ($want_count eq '+') { }
27 2 elsif ($want_count eq '*') { }
314 0 2 if ($want_count > $have_count) { }
336 0 18 if @_
338 1 17 if (exists $self->{'ExtendedHeaders'})
347 0 17 if ($self->{'Headers'})
371 0 0 if (@_)
381 1 0 if (@_)
391 3 0 if (@_ == 1)
401 3 0 if (@_ == 1)
410 0 1 if @_