blib/lib/Crypt/Vernam.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 21 | 28 | 75.0 |
line | true | false | branch |
---|---|---|---|
66 | 3 | 23 | unless defined $pos1 |
68 | 12 | 11 | $action eq 'encrypt' ? : |
76 | 23 | 0 | if ($char =~ /[a-z]/) |
130 | 0 | 4 | unless $mode =~ /mod26|xor/i |
132 | 0 | 4 | unless defined $data |
134 | 0 | 4 | if $length <= 0 |
137 | 2 | 2 | unless (caller 1)[3] =~ /decrypt$/ |
141 | 0 | 2 | unless defined $key |
146 | 0 | 2 | if $length != $klength |
150 | 1 | 1 | if ($mode =~ /mod26/i) |
152 | 0 | 6 | unless /[a-z]/i |
168 | 1 | 1 | $mode =~ /mod26/i ? : |
175 | 1 | 1 | $mode =~ /mod26/i ? : |
189 | 1 | 1 | $mode =~ /mod26/i ? : |