Branch Coverage

blib/lib/Math/MVPoly/Parser.pm
Criterion Covered Total %
branch 70 130 53.8


line true false branch
29 0 153 if (@_)
37 50 138 if (@_)
45 0 17 if (@_)
66 0 0 if ($status eq 0) { }
0 0 elsif ($status eq 1) { }
0 0 elsif ($status eq 2) { }
0 0 elsif ($status eq 3) { }
0 0 elsif ($status eq 4) { }
0 0 elsif ($status eq 5) { }
0 0 elsif ($status eq 6) { }
163 46 1 if (exists $$myVars{$var})
180 3 0 if ($s =~ /^\"/)
199 17 0 if ($self->haveVariable($name)) { }
203 17 0 if (ref $v) { }
0 0 elsif (ref $v eq 'ARRAY') { }
212 0 0 if (ref $$v[$i]) { }
222 0 0 if ($i < $#$v)
283 3 17 if ($type eq 'const') { }
17 0 elsif ($type eq 'variable') { }
296 20 0 if ($self->statusIsValid)
531 0 0 if ($#$info > 3) { }
605 20 21 if ($cmd eq 'print') { }
7 14 elsif ($cmd eq 'monOrder') { }
5 9 elsif ($cmd eq 'varOrder') { }
0 9 elsif ($cmd eq 'gbasis') { }
2 7 elsif ($cmd eq 'monLCM') { }
2 5 elsif ($cmd eq 'spoly') { }
0 5 elsif ($cmd eq 'reduce') { }
1 4 elsif ($cmd eq 'gcd') { }
1 3 elsif ($cmd eq 'mult') { }
1 2 elsif ($cmd eq 'add') { }
0 2 elsif ($cmd eq 'subtract') { }
0 2 elsif ($cmd eq 'divide') { }
0 2 elsif ($cmd eq 'normalf') { }
1 1 elsif ($cmd eq 'quo') { }
1 0 elsif ($cmd eq 'rem') { }
0 0 elsif ($cmd eq 'value') { }
0 0 elsif ($cmd eq 'verbose') { }
0 0 elsif ($cmd eq 'state') { }
701 6 1 if ($self->haveVariableOrdering)
705 0 6 if ($monOrder eq 'tdeg' and $#$varOrder > 1)
712 7 0 if ($monOrder eq 'tdeg' or $monOrder eq 'grlex' or $monOrder eq 'grevlex' or $monOrder eq 'lex') { }
726 29 6 if (ref $v ne '' and ref $v ne 'ARRAY' and ref $v ne 'HASH')
749 14 0 if ($self->haveVariable('monOrder'))
771 0 5 if (not $self->haveMonomialOrdering) { }
0 10 elsif ($self->getVariable('monOrder') eq 'tdeg' and $#vars > 1) { }
782 5 0 if ($#vars >= 0) { }
793 19 5 if (ref $v ne '' and ref $v ne 'ARRAY' and ref $v ne 'HASH')
816 15 1 if ($self->haveVariable('varOrder'))
840 0 0 if (ref $p)
870 0 0 if ($self->haveVariable($n1)) { }
909 9 9 if ($type eq 'function') { }
9 0 elsif ($type eq 'variable') { }
0 0 elsif ($type eq 'const') { }
915 0 9 unless ($self->haveMonomialOrdering)
919 0 9 if (not $self->haveVariableOrdering) { }
942 18 0 if ($self->statusIsValid)
963 18 70 if ($s =~ /\=/g) { }
41 29 elsif ($s =~ /[\(\)]/g) { }
3 26 elsif ($s =~ /[\"\'\,]/g) { }
1001 32 18 if ($type eq 'function') { }
18 0 elsif ($type eq 'assignment') { }
1014 0 50 unless ($self->statusIsValid)
1060 7 50 if (/^ *\#/ or length $_ == 0)
1068 0 50 unless $self->statusIsValid