Branch Coverage

blib/lib/Tie/Array/Unique.pm
Criterion Covered Total %
branch 32 44 72.7


line true false branch
13 1 1 if UNIVERSAL::isa($_[0], 'Tie::Array::Unique::How')
17 0 10 $$self[1] ? :
57 6 8 $$self[1] ? :
60 3 11 if $dup and not $old
65 1 3 $$self[1] ? :
4 7 if $old
70 3 8 $$self[1] ? :
73 3 8 if ($dup)
75 1 8 $$self[1] ? :
1 8 $$self[1] ? :
2 7 if (($$self[1] ? $$self[1]($$self[$i]) : $$self[$i]) eq ($$self[1] ? $$self[1]($value) : $value) and $i != 2 + $idx)
89 0 5 $$self[1] ? :
96 0 1 if @$self == 2
99 0 1 $$self[1] ? :
107 0 6 $$self[1] ? :
114 0 1 if @$self == 2
117 0 1 $$self[1] ? :
127 1 0 defined $len ? :
130 0 2 $$self[1] ? :
132 1 0 if (@_)
136 0 2 $$self[1] ? :
160 0 1 unless UNIVERSAL::isa($_[0], 'CODE')