| line |
true |
false |
branch |
|
166
|
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') { } |
|
168
|
0 |
14 |
if exists $self->{'algorithm'} |
|
172
|
0 |
7 |
if exists $self->{'salt'} |
|
173
|
0 |
7 |
unless $value =~ /\A[\x00-\xff]*\z/ |
|
178
|
0 |
6 |
if exists $self->{'salt'} |
|
179
|
0 |
6 |
unless $value =~ /\A(?:[0-9A-Fa-f]{2})+\z/ |
|
184
|
0 |
1 |
if exists $self->{'salt'} |
|
185
|
0 |
1 |
unless $value == int $value and $value >= 0 |
|
190
|
0 |
6 |
if exists $self->{'hash'} or defined $passphrase |
|
192
|
0 |
6 |
unless $value =~ /\A[\x00-\xff]*\z/ |
|
197
|
0 |
6 |
if exists $self->{'hash'} or defined $passphrase |
|
199
|
0 |
6 |
unless $value =~ /\A(?:[0-9A-Fa-f]{2})+\z/ |
|
204
|
0 |
2 |
if exists $self->{'hash'} or defined $passphrase |
|
211
|
0 |
14 |
unless exists $self->{'algorithm'} |
|
212
|
0 |
14 |
unless exists $self->{'salt'} |
|
213
|
2 |
12 |
if (defined $passphrase) { } |
|
|
12 |
0 |
elsif (exists $self->{'hash'}) { } |
|
217
|
0 |
12 |
unless length $self->{'hash'} == length $self->_hash_of("") |
|
251
|
0 |
2 |
unless $userpassword =~ /\A\{([-0-9A-Za-z]+)\}/ |
|
255
|
0 |
2 |
unless defined $meaning |
|
257
|
0 |
2 |
unless $userpassword =~ m[\A\{.*?\}
((?>(?:[A-Za-z0-9+/]{4})*)
(?:|[A-Za-z0-9+/]{2}[AEIMQUYcgkosw048]=|
[A-Za-z0-9+/][AQgw]==))\z]x |
|
266
|
0 |
2 |
if length $hash_and_salt < $hash_len |
|
268
|
0 |
2 |
if not $salt_allowed and length $hash_and_salt > $hash_len |
|
351
|
65 |
0 |
if (rand $alg) { } |
|
|
0 |
0 |
elsif (rand $alg) { } |
|
352
|
1 |
64 |
if ($alg =~ /::/) { } |
|
353
|
0 |
1 |
unless $alg =~ /\A(?:::)?([0-9a-zA-Z_:]+)
(-([0-9][0-9_]*(?:\._*[0-9][0-9_]*)?)?)?\z/x |
|
357
|
0 |
1 |
unless &is_valid_module_name($pkgname) |
|
359
|
1 |
0 |
if ($load_p) |
|
360
|
1 |
0 |
if (defined $modver) { } |
|
410
|
12 |
0 |
if (rand $alg) |
|
411
|
1 |
11 |
if ($alg =~ /::/) { } |
|
412
|
1 |
0 |
if $alg =~ /\A(?:::)?
([0-9a-zA-Z_:]+)(?:-[0-9._]*)?\z/x |
|
419
|
0 |
12 |
unless defined $scheme |
|
422
|
0 |
12 |
$self->{'salt'} eq '' ? : |