Branch Coverage

lib/Crypt/RSA/Key/Private.pm
Criterion Covered Total %
branch 50 70 71.4


line true false branch
31 1 16 if ($params{'Filename'}) { }
37 3 13 if $params{'Identity'}
39 16 0 if $params{'Password'}
50 8964 62 if ($key =~ /^(e|n|d|p|q|dp|dq|u|phi)$/) { }
47 15 elsif ($key =~ /^Identity|Cipher|Password$/) { }
15 0 elsif ($key =~ /^Checked$/) { }
51 96 8868 if (ref $value eq 'Math::Pari') { }
20 8848 elsif ($value and not ref $value) { }
55 0 20 if ($value =~ /^0x/) { }
65 46 1 if $value
69 15 0 if $value and $package eq 'Crypt::RSA::Key::Private'
79 0 2 unless $$self{'Password'}
100 2 1 if $params{'Password'}
101 1 2 unless $$self{'Password'}
114 1089 15 if $$self{'Checked'}
116 0 15 unless $self->n and $self->d or $self->n and $self->p and $self->q
119 12 3 if ($self->p and $self->q)
120 0 12 if $self->n =~ /\D/
121 0 12 if $self->p =~ /\D/
122 0 12 if $self->p =~ /\D/
123 0 12 unless $self->n == $self->p * $self->q
124 0 12 unless isprime $self->p
125 0 12 unless isprime $self->q
128 12 3 if ($self->e)
130 0 12 if $self->e =~ /\D/
133 0 12 unless $KI == 1
136 12 3 if ($self->dp)
138 0 12 unless $self->dp == $self->d % ($self->p - 1)
141 12 3 if ($self->dq)
143 0 12 unless $self->dq == $self->d % ($self->q - 1)
146 12 3 if ($self->u and $self->q and $self->p)
148 0 12 unless $self->u == $m
185 0 1 unless open DISK, $params{'Filename'}
199 0 1 if ($$self{'private'})
215 0 1 if ($$self{'private'})