Branch Coverage

blib/lib/Mail/DKIM/Algorithm/dk_rsa_sha1.pm
Criterion Covered Total %
branch 15 22 68.1


line true false branch
26 21 0 if (my $s = $self->signature and $self->{'canon'}{'interesting_header'})
34 4 17 if ($sender) { }
17 0 elsif ($author) { }
46 0 21 unless @_ == 1
49 6 0 $method eq 'simple' ? :
15 6 $method eq 'nofws' ? :
59 0 21 unless $self->{'Signature'}
61 15 6 $self->{'Signature'}->signature ? :
87 0 6 unless @_ == 1
98 0 13 unless @_ == 0
114 6 15 if ($self->{'mode'} eq "sign")