Branch Coverage

blib/lib/Math/Pari.pm
Criterion Covered Total %
branch 57 90 63.3


line true false branch
1017 0 0 if shift()
1023 2 5 if shift()
1133 0 7 if (@_ > 1)
1191 0 7 unless $in =~ s/^0([xb])?//
1193 5 2 if ($hex and $1 eq "b")
1203 1 6 unless $hex
1206 16 0 $hex ? :
1211 0 7 if length $in
1224 241 479 if (/^:(?!DEFAULT)(.*)/) { }
1228 238 3 if $tag eq "all"
1229 0 241 if $tag eq "PARI"
1230 0 3 if not $tag =~ /^-?\d+$/ and exists $Math::Pari::sections{$tag}
1231 0 241 if $tag eq $Math::Pari::sections{'graphic'}
1232 0 241 if ($tag =~ /^prec=(\d+)$/) { }
3 238 elsif ($tag =~ /^(int|hex|float)$/) { }
238 0 elsif (defined $tag and $tag =~ /^-?\d+$/) { }
1236 0 3 if $] < "5.00469"
1267 1 2 if defined &$meth
1268 1 1 if eval { do { &loadPari($meth), 1 } }
1275 4 3 if defined $f
1278 2 1 if defined $f
1283 2 1 if @_ == 2
1284 1 0 if &typ($_[0]) == 10
1325 0 1 unless eval { do { &allocatemem($mem); 1 } } or $@ =~ /^PARI:\s\sat\s+\S*\s+line\s+\d+\.?\s*$/
1339 439 1 unless $in =~ s/(?:^|;)default\(parisize,("?)($matched_par)\1\)\s*$//
1348 0 18 if $def and not ref $def
1350 11920 800 defined $1 ? :
1361 0 0 length $_ ? :
0 438 ($pre = $_, s/(?:^|;)allocatemem\(((??{ $matched_par; }))\);?$//) ? :
2 438 ref $_ ? :
1363 0 18 if $quote or not @in
1370 0 422 $echo && ref $IN ? :
1371 0 0 $IN->[0] ? :
0 422 $c && !($IN =~ /;$/) ? :
0 422 ref $IN ? :
1373 4 412 if $def and not ref $IN and $IN =~ /^(\w+)\((??{ $matched_par; })\)=(?!=)/
1375 2 16 $echo && ref $in ? :
1376 2 0 $in->[0] ? :
0 16 $c && !($in =~ /;$/) ? :
2 16 ref $in ? :
1378 3 13 if $def and not ref $in and $in =~ /^(\w+)\((??{ $matched_par; })\)=(?!=)/
1384 6 0 unless eval "use Term::Gnuplot 0.56; 1"
1389 0 0 unless eval "use Term::Gnuplot 0.4; 1"
1390 0 0 if $Term::Gnuplot::VERSION ge "0.55"
1396 0 0 unless eval "use Term::Gnuplot 0.55; 1"