Branch Coverage

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') { }