| line |
true |
false |
branch |
|
38
|
0 |
8 |
unless defined $key |
|
39
|
0 |
8 |
if (my $ref_of_key = ref $key) { } |
|
40
|
0 |
0 |
unless $ref_of_key eq 'ARRAY' |
|
41
|
0 |
0 |
if scalar @{$key;} != $ELEMENTS_IN_KEY |
|
42
|
0 |
0 |
unless &all(sub {
&isint($_) != 0;
}
, @{$key;}) |
|
45
|
0 |
8 |
if length $key != $KEY_SIZE |
|
48
|
0 |
8 |
if &isint($rounds) != 1 |
|
52
|
2 |
6 |
$opts{'little_endian'} ? : |
|
61
|
0 |
8 |
if length $plain_text != $BLOCK_SIZE |
|
71
|
0 |
8 |
if length $cipher_text != $BLOCK_SIZE |
|
82
|
0 |
8 |
if scalar @{$block_ref;} != $ELEMENTS_IN_BLOCK |
|
83
|
0 |
8 |
if scalar @{$key_ref;} != $ELEMENTS_IN_KEY |
|
93
|
0 |
8 |
if scalar @{$block_ref;} != $ELEMENTS_IN_BLOCK |
|
94
|
0 |
8 |
if scalar @{$key_ref;} != $ELEMENTS_IN_KEY |
|
101
|
2 |
6 |
shift() ? : |
|
102
|
0 |
8 |
if length $key_str != $KEY_SIZE |