blib/lib/Tie/Redis/Attribute.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 1 | 24 | 4.1 |
line | true | false | branch |
---|---|---|---|
20 | 0 | 2 | unless eval "\n sub ${pkg}::Redis :ATTR(VAR) {\n unshift \@_, \$class;\n goto &_do_tie;\n }\n 1\n " |
31 | 0 | 0 | if tied $ref |
33 | 0 | 0 | if ($data and not ref $data) |
41 | 0 | 0 | ref $data ? : |
43 | 0 | 0 | unless (exists $args{'key'}) |
62 | 0 | 0 | unless ($name) |
66 | 0 | 0 | unless ref \$glob eq 'GLOB' |
67 | 0 | 0 | if (*$glob{$type} and *$glob{$type} == $ref) |
73 | 0 | 0 | unless ($name) |
79 | 0 | 0 | if ($pkg eq 'main') |
87 | 0 | 0 | if ($type eq 'HASH') { } |
0 | 0 | elsif ($type eq 'ARRAY') { } |