| blib/lib/Net/SSH/Perl/Cipher.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 22 | 54.5 |
| line | true | false | branch |
|---|---|---|---|
| 46 | 12 | 1 | unless $@ |
| 54 | 6 | 43 | if ($type eq 'None') { } |
| 69 | 32 | 0 | defined $_[1] ? : |
| 82 | 0 | 8 | if (my $class = ref $this) { } |
| 95 | 0 | 0 | if (my $class = ref $this) { } |
| 112 | 1 | 7 | unless (keys %Net::SSH::Perl::Cipher::SUPPORTED) |
| 116 | 0 | 8 | if not ref $_[0] and $_[0] and $_[0] eq 'protocol' |
| 118 | 0 | 8 | unless (@_) |
| 119 | 0 | 0 | unless 2 == $protocol |
| 123 | 0 | 8 | ref $_[0] ? : |
| 124 | 8 | 0 | unless @_ |