| line |
true |
false |
branch |
|
58
|
1 |
0 |
unless ($$session{'args'}{'salt'}) |
|
63
|
0 |
1 |
unless $$session{'args'}{'salt'} =~ /^(.{8})$/s |
|
67
|
0 |
1 |
unless my $serialized = encode_base64($c->encrypt(nfreeze($$session{'data'})), '') |
|
80
|
0 |
1 |
unless $data = thaw($c->decrypt(decode_base64($$session{'serialized'}))) |
|
87
|
0 |
1 |
unless $$session{'args'}{'salt'} = $c->salt |
|
96
|
0 |
2 |
unless defined $$session{'args'}{'ServerKey'} and $$session{'args'}{'ServerKey'} =~ /^[a-f0-9]{$keylength}$/ |
|
97
|
0 |
2 |
unless defined $$session{'args'}{'key'} and $$session{'args'}{'key'} =~ /^[a-f0-9]{$keylength}$/ |
|
102
|
0 |
2 |
if (not defined $$session{'args'}{'SerializeCipher'}) { } |
|
|
0 |
2 |
elsif (not exists $allowedcl{$$session{'args'}{'SerializeCipher'}}) { } |
|
123
|
0 |
2 |
unless $c |
|
135
|
1 |
0 |
if (eval "require $_") |