| line |
true |
false |
branch |
|
30
|
0 |
2 |
unless my $clone = $self->new("cost", $self->cost, "salt", $self->salt, "type", $self->type) |
|
41
|
66 |
45 |
unless @_ |
|
46
|
2 |
43 |
unless (defined $cost) |
|
62
|
0 |
12 |
defined $self->{'type'} ? : |
|
73
|
11 |
28 |
unless @_ |
|
74
|
12 |
16 |
@_ > 1 ? : |
|
75
|
14 |
10 |
if $params->{'cost'} |
|
76
|
14 |
10 |
if $params->{'salt'} |
|
77
|
8 |
16 |
if $params->{'settings'} |
|
78
|
0 |
24 |
if $params->{'type'} |
|
93
|
86 |
40 |
unless @_ |
|
98
|
2 |
38 |
unless (defined $salt) |
|
111
|
20 |
11 |
unless (@_) |
|
115
|
8 |
12 |
defined $self->{'type'} ? : |
|
119
|
2 |
9 |
unless $settings =~ m[\A\$(2[abxy])\$([0-9]{2})\$
([./A-Za-z0-9]{22})]x |
|
131
|
2 |
9 |
unless @_ |
|
134
|
0 |
9 |
unless $type =~ /^2[abxy]$/ |
|
142
|
43 |
14 |
defined $cost ? : |
|
143
|
5 |
52 |
if (not defined $cost && $cost =~ /^\d+$/ or ($cost < 5 or $cost > 31)) |
|
151
|
38 |
13 |
defined $salt ? : |
|
152
|
3 |
48 |
unless ($salt and &bytes::length($salt) == 16) |