| blib/lib/Convert/SSH2/Format/PKCS8.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 8 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 101 | 0 | 2 | unless $self->asn->prepare("\nrsa SEQUENCE {\n mod INTEGER,\n exp INTEGER\n}\n") |
| 108 | 0 | 2 | unless my $rsa_asn = $self->asn->encode('rsa', {'mod', $self->n, 'exp', $self->e}) |
| 115 | 0 | 2 | unless $self->asn->prepare($self->asn_template) |
| 117 | 0 | 2 | unless my $pdu = $self->asn->encode('key', {'algo', {'id', '1.2.840.113549.1.1.1', 'n', ''}, 'bs', $rsa_asn}) |