line |
true |
false |
branch |
168
|
14 |
28 |
if ($attr eq 'algorithm') { } |
|
7 |
21 |
elsif ($attr eq 'salt') { } |
|
6 |
15 |
elsif ($attr eq 'salt_hex') { } |
|
1 |
14 |
elsif ($attr eq 'salt_random') { } |
|
6 |
8 |
elsif ($attr eq 'hash') { } |
|
6 |
2 |
elsif ($attr eq 'hash_hex') { } |
|
2 |
0 |
elsif ($attr eq 'passphrase') { } |
169
|
0 |
14 |
if exists $$self{'algorithm'} |
173
|
0 |
7 |
if exists $$self{'salt'} |
175
|
0 |
7 |
unless $value =~ /\A[\x00-\xff]*\z/ |
179
|
0 |
6 |
if exists $$self{'salt'} |
181
|
0 |
6 |
unless $value =~ /\A(?:[0-9A-Fa-f]{2})+\z/ |
185
|
0 |
1 |
if exists $$self{'salt'} |
187
|
0 |
1 |
unless $value == int $value and $value >= 0 |
191
|
0 |
6 |
if exists $$self{'hash'} or defined $passphrase |
194
|
0 |
6 |
unless $value =~ /\A[\x00-\xff]*\z/ |
198
|
0 |
6 |
if exists $$self{'hash'} or defined $passphrase |
201
|
0 |
6 |
unless $value =~ /\A(?:[0-9A-Fa-f]{2})+\z/ |
205
|
0 |
2 |
if exists $$self{'hash'} or defined $passphrase |
213
|
0 |
14 |
unless exists $$self{'algorithm'} |
214
|
0 |
14 |
unless exists $$self{'salt'} |
215
|
2 |
12 |
if (defined $passphrase) { } |
|
12 |
0 |
elsif (exists $$self{'hash'}) { } |
218
|
0 |
12 |
unless length $$self{'hash'} == length $self->_hash_of('') |
253
|
0 |
2 |
unless $userpassword =~ /\A\{([-0-9A-Za-z]+)\}/ |
257
|
0 |
2 |
unless defined $meaning |
259
|
0 |
2 |
unless $userpassword =~ m[\A\{.*?\}
((?>(?:[A-Za-z0-9+/]{4})*)
(?:|[A-Za-z0-9+/]{2}[AEIMQUYcgkosw048]=|
[A-Za-z0-9+/][AQgw]==))\z]x |
268
|
0 |
2 |
if length $hash_and_salt < $hash_len |
270
|
0 |
2 |
if not $salt_allowed and length $hash_and_salt > $hash_len |
353
|
65 |
0 |
if (rand $alg) { } |
|
0 |
0 |
elsif (rand $alg) { } |
354
|
1 |
64 |
if ($alg =~ /::/) { } |
355
|
0 |
1 |
unless $alg =~ /\A(?:::)?([0-9a-zA-Z_:]+)
(-([0-9][0-9_]*(?:\._*[0-9][0-9_]*)?)?)?\z/x |
359
|
0 |
1 |
unless is_valid_module_name $pkgname |
361
|
1 |
0 |
if ($load_p) |
362
|
1 |
0 |
if (defined $modver) { } |
412
|
12 |
0 |
if (rand $alg) |
413
|
1 |
11 |
if ($alg =~ /::/) { } |
414
|
1 |
0 |
if $alg =~ /\A(?:::)?
([0-9a-zA-Z_:]+)(?:-[0-9._]*)?\z/x |
421
|
0 |
12 |
unless defined $scheme |
423
|
0 |
12 |
$$self{'salt'} eq '' ? : |