Branch Coverage

blib/lib/match/smart.pm
Criterion Covered Total %
branch 60 64 93.7


line true false branch
27 43 1063 unless defined $b
28 0 1063 if &blessed($b) and $b->isa('Type::Tiny')
29 10 1053 if &blessed($b) and $b->can('MATCH')
30 0 60 if &blessed($b) and $] >= 5.01 and do { require overload; overload::Method($b, '~~') }
32 29 1024 if (&blessed($b) and not $b->isa('Regexp'))
40 3 1021 if $refb and $seen->{$refb}++
42 118 903 if (ref $b eq 'ARRAY')
44 63 55 if (ref $a eq 'ARRAY')
46 10 53 unless @$a == @$b
49 10 680 unless match($a->[$i], $b->[$i], $seen)
54 17 38 if ref $a eq 'HASH'
55 6 32 if ref $a eq 'Regexp'
56 9 23 unless defined $a
60 82 821 if (ref $b eq 'HASH')
62 27 55 if ref $a eq 'HASH'
65 24 31 if ref $a eq 'ARRAY'
66 10 21 if ref $a eq 'Regexp'
67 4 17 unless defined $a
71 54 767 if (ref $b eq 'CODE')
73 14 40 if ref $a eq 'ARRAY'
74 14 26 if ref $a eq 'HASH'
78 31 736 if (ref $b eq 'Regexp')
80 9 22 if ref $a eq 'ARRAY'
81 9 13 if ref $a eq 'HASH'
85 0 736 if &blessed($a) and $a->isa('Type::Tiny')
86 3 733 if &blessed($a) and $a->can('MATCH')
87 0 5 if &blessed($a) and $] >= 5.01 and do { require overload; overload::Method($a, '~~') }
88 5 728 unless defined $a
89 135 593 if _is_number($b)
90 10 583 if _is_number($a) and &looks_like_number($b)
98 11 1310 if ref $value
100 158 1152 if $flags & 12288