Branch Coverage

blib/lib/Math/Symbolic/Custom/Pattern.pm
Criterion Covered Total %
branch 76 98 77.5


line true false branch
182 0 132 unless ref($proto) =~ /^Math::Symbolic/
216 0 496 if ($tt == 1) { }
186 310 elsif ($tt == 0) { }
228 11 175 if $$info{'commutation'} and $Math::Symbolic::Operator::Op_Types[$$tree[1]]{'commutative'}
236 38 272 if ($name eq 'TREE') { }
20 252 elsif ($name eq 'CONST') { }
18 234 elsif ($name eq 'VAR') { }
70 164 elsif ($name =~ /^TREE_(\w+)$/) { }
10 154 elsif ($name =~ /^CONST_(\w+)$/) { }
66 88 elsif ($name =~ /^VAR_(\w+)$/) { }
310 0 132 unless ref($tree) =~ /^Math::Symbolic/
323 80 52 if $okay
333 0 438 if ($ptype == 1) { }
74 364 elsif ($ptype == 2) { }
170 194 elsif ($ptype == 0) { }
194 0 elsif ($ptype == -1) { }
334 0 0 if $ttype != 1
335 0 0 if abs $tree->value - $$pat[1] < 1e-29
339 14 60 if $ttype != 2
340 48 12 if $tree->name eq $$pat[1]
344 2 168 if $ttype != 0
346 4 164 if $optype != $$pat[1]
351 0 164 if @operands != @tree_ops
353 20 144 if ($$pat[3] & 1 and @operands > 1) { }
354 20 0 if (@operands == 2) { }
356 12 8 unless ($ok)
359 2 18 unless $ok
366 0 0 unless $ok
375 34 222 unless $ok
382 34 160 if ($match == 0) { }
16 144 elsif ($match == 1) { }
10 134 elsif ($match == 2) { }
66 68 elsif ($match == 3) { }
10 58 elsif ($match == 4) { }
58 0 elsif ($match == 5) { }
387 8 8 $ttype == 1 ? :
391 6 4 $ttype == 2 ? :
397 0 78 unless exists $$itrees{$name}
402 34 44 if (defined $itree) { }
404 16 18 if $ok
414 4 6 unless $ttype == 1
419 0 6 unless exists $$iconsts{$name}
424 0 6 if (defined $iconst) { }
426 0 0 if $ok
436 6 52 unless $ttype == 2
441 0 54 unless exists $$ivars{$name}
446 16 38 if (defined $ivar) { }
448 10 6 if $ok
474 0 0 unless my $q = $p