| blib/lib/DBIx/Class/EncodedColumn/Digest.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 12 | 17 | 70.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 44 | 7 | 0 | 0 | $alg eq 'Haval-256' and $for eq 'base64' |
| line | l | !l | condition |
|---|---|---|---|
| 32 | 3 | 4 | $args->{'format'} ||= 'base64' |
| 33 | 4 | 3 | $args->{'algorithm'} ||= 'SHA-256' |
| 34 | 1 | 6 | $args->{'salt_length'} ||= 0 |
| 68 | 5 | 0 | eval " sub {\n my \$col_v = \$_[0]->get_column('${col}');\n my \$salt = substr(\$col_v, $len);\n \$_[0]->_column_encoders->{$col}->(\$_[1], \$salt) eq \$col_v;\n } " || die($@) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 48 | 1 | 2 | 15 | $salt ||= join('', map({$salt_pool[int rand 65];} 1 .. $slen)) |
| 56 | 7 | 0 | 0 | $digest_lengths{$alg}{$for} ||= length &$encoder('test1') |