Branch Coverage

blib/lib/Crypt/RSA/Key/Public.pm
Criterion Covered Total %
branch 20 26 76.9


line true false branch
23 1 5 if ($params{'Filename'}) { }
37 63 4 if ($key =~ /^n|e$/) { }
4 0 elsif ($key =~ /^Identity$/) { }
38 10 53 if (defined $value)
39 3 7 if (ref $value eq 'Math::BigInt') { }
0 7 elsif (ref $value eq 'Math::Pari') { }
47 62 1 if (defined $self->{$key})
48 2 60 unless ref $self->{$key} eq 'Math::BigInt'
53 1 3 if $value
70 0 10 unless defined $self->n and defined $self->e
82 0 1 unless open my $disk, '>', $params{'Filename'}
93 0 1 unless open my $disk, '<', $params{'Filename'}
108 2 0 if ref $self->{$key} eq 'Math::BigInt'