Branch Coverage

blib/lib/Smart/Dispatch/Table.pm
Criterion Covered Total %
branch 9 42 21.4


line true false branch
6 0 5 $ENV{'PERL_SMART_DISPATCH_TYPE_CHECKS'} == 42 ? :
61 0 4 if (scalar @otherwise > 1)
65 0 4 if (@otherwise and &refaddr($otherwise[0]) != &refaddr($self->match_list->[-1]))
94 13 49 if ($cond->value_matches($value))
96 12 1 if ($allow_fails or not $cond->is_failover) { }
113 9 1 if $cond
122 0 0 unless defined $other
123 0 0 unless ref $other
125 0 0 unless &blessed($other)
128 0 0 if ($other->isa('Smart::Dispatch::Table')) { }
0 0 elsif ($other->isa('Smart::Dispatch::Match') and not $other->is_unconditional) { }
0 0 elsif ($other->isa('Smart::Dispatch::Match') and $other->is_unconditional) { }
130 0 0 $self->unconditional_matches ? :
148 0 0 $self->unconditional_matches ? :
168 0 0 unless defined $other
169 0 0 unless ref $other
171 0 0 unless &blessed($other)
174 0 0 if ($other->isa('Smart::Dispatch::Table')) { }
0 0 elsif ($other->isa('Smart::Dispatch::Match') and not $other->is_unconditional) { }
0 0 elsif ($other->isa('Smart::Dispatch::Match') and $other->is_unconditional) { }
176 0 0 $other->unconditional_matches ? :