| lib/Crypt/Perl/X509/Extensions.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 20 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 77 | 0 | 17 | unless (@extensions) |
| 82 | 136 | 1 | unless (&try(sub { $ext->isa($EXT_BASE); } )) |
| 83 | 1 | 135 | if ('HASH' eq ref $ext) { } |
| 0 | 135 | elsif ('ARRAY' ne ref $ext) { } | |
| 84 | 0 | 1 | unless (&try(sub { $ext->{'extension'}->isa($EXT_BASE); } )) |
| 85 | 0 | 0 | if ('ARRAY' ne ref $ext->{'extension'}) |
| 118 | 1 | 136 | if ('HASH' eq ref $ext) { } |
| 125 | 135 | 2 | if ('ARRAY' eq ref $real_ext) |
| 129 | 136 | 1 | unless (defined $critical) |
| 134 | 43 | 94 | $critical ? : |