Branch Coverage

blib/lib/assertions.pm
Criterion Covered Total %
branch 46 60 76.6


line true false branch
19 0 2 if (warnings::enabled('assertions'))
42 24 137 if not defined $t or $t eq ''
44 13 124 if ($t eq '(') { }
49 12 112 if ($t eq '||') { }
25 87 elsif ($t eq '&&') { }
50 1 11 if defined $op[0]
55 1 24 if defined $op[0]
60 13 74 if ($t eq ')') { }
8 66 elsif ($t eq '_') { }
22 58 elsif ($t ne '0' and $t ne '1') { }
61 1 12 if @now == 1
63 0 12 if defined $op[0]
70 2 6 unless ($^H & $seen_hint)
73 4 4 $^H & $hint ? :
76 92 0 ref $_ eq 'Regexp' ? :
15 7 grep({ref $_ eq 'Regexp' ? $t =~ /$_/ : $_->check($t);} @{^ASSERTING}) ? :
82 0 86 unless defined $op[0]
85 54 32 if ($op[0] eq 'start') { }
11 21 elsif ($op[0] eq '||') { }
98 1 38 unless @now == 1
99 1 37 if defined $op[0]
108 1 13 unless @_
110 4 10 unless (_calc_expr($expr))
122 0 1 if @_ > 1
128 0 6 if (@_)
129 0 0 if ($_[0]) { }
137 4 2 $^H & $hint ? :
141 0 0 if (@_)
142 0 0 if ($_[0]) { }
149 0 0 $^H & $seen_hint ? :