| line |
true |
false |
branch |
|
57
|
1 |
23 |
if length $self->salt > length $self->alphabet |
|
69
|
301 |
21 |
if &any(sub {
/$sep/;
}
, @alphabet) |
|
75
|
1 |
22 |
if (not @seps or @alphabet / @seps > $sepDiv) |
|
77
|
0 |
1 |
if $sepsLength == 1 |
|
78
|
1 |
0 |
if ($sepsLength > @seps) |
|
87
|
0 |
23 |
@alphabet < 3 ? : |
|
99
|
1 |
1 |
unless $str =~ /^[0-9a-fA-F]+$/ |
|
114
|
1 |
1 |
@res ? : |
|
128
|
2 |
2079 |
unless @num |
|
129
|
9 |
2112 |
unless defined $_ and /^[0-9]+$/ |
|
153
|
40 |
2070 |
if ($i + 1 < @$num) |
|
160
|
18 |
2052 |
if (@res < $self->minHashLength) |
|
167
|
18 |
0 |
if (@res < $self->minHashLength) |
|
183
|
18 |
0 |
if ((my $excess = @res - $self->minHashLength) > 0) |
|
194
|
1 |
1030 |
unless $hash |
|
195
|
0 |
1030 |
unless defined wantarray |
|
202
|
3 |
1027 |
@hash == 3 || @hash == 2 ? : |
|
204
|
0 |
1030 |
unless defined($hash = $hash[$i]) |
|
220
|
1 |
1029 |
unless $self->Hashids::encode(@$res) eq $orig |
|
222
|
1017 |
4 |
@$res == 1 ? : |
|
|
8 |
1021 |
wantarray ? : |