Branch Coverage

blib/lib/Struct/Match.pm
Criterion Covered Total %
branch 22 22 100.0


line true false branch
12 21 1 if ($STRUCT{'SAME'}->($_[1], 'SCALAR'))
20 11 1 !$STRUCT{'ADDR'}->($_[0], $_[1]) ? :
12 1 if $STRUCT{'SAME'}->($_[1], 'HASH')
35 12 1 !$STRUCT{'ADDR'}->($_[0], $_[1]) ? :
13 1 if $STRUCT{'SAME'}->($_[1], 'ARRAY')
43 9 1 if $STRUCT{'SAME'}->($_[1], $t)
48 9 7 eval { do { $_[0]{'shamed'}; 1 } } ? :
9 16 eval { do { $_[0][0] } } ? :
54 45 67 unless $r and exists $STRUCT{$r} && $r || 'CHECK'
58 15 44 if ($s eq 'CHECK')
65 28 1 unless $STRUCT{$o}->($_[0], $_[1]) or $_[2] and $o eq 'CHECK' and 1