| line |
true |
false |
branch |
|
28
|
0 |
1158 |
if keys %params |
|
30
|
0 |
1158 |
if defined $seed and defined $passph |
|
32
|
0 |
1158 |
if defined $chars and not ref $chars |
|
35
|
0 |
1158 |
if $chars and ref $chars eq "SCALAR" |
|
36
|
3 |
1155 |
if $passph |
|
37
|
28 |
1130 |
unless defined $seed |
|
38
|
1127 |
31 |
unless ref $seed |
|
40
|
0 |
1158 |
$rtn_src ? : |
|
63
|
0 |
1158 |
unless $self->{'encode'} = eval(($enc_src = "sub { \$_[0] =~ tr|$fr_chars|$to_chars|r }")) |
|
64
|
0 |
1158 |
unless $self->{'decode'} = eval(($dec_src = "sub { \$_[0] =~ tr|$to_chars|$fr_chars|r }")) |
|
66
|
0 |
1158 |
if $self->{'rtn_src'} |
|
71
|
0 |
1158 |
if $pp_shuffle |
|
77
|
0 |
0 |
unless ($self->{'src'}) |