| 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
|
23 |
43 |
if (/^:(?!DEFAULT)(.*)/) { } |
|
1228
|
20 |
3 |
if $tag eq "all" |
|
1229
|
0 |
23 |
if $tag eq "PARI" |
|
1230
|
0 |
3 |
if not $tag =~ /^-?\d+$/ and exists $Math::Pari::sections{$tag} |
|
1231
|
0 |
23 |
if $tag eq $Math::Pari::sections{'graphic'} |
|
1232
|
0 |
23 |
if ($tag =~ /^prec=(\d+)$/) { } |
|
|
3 |
20 |
elsif ($tag =~ /^(int|hex|float)$/) { } |
|
|
20 |
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 |
0 |
unless eval {
do {
&allocatemem($mem);
1
}
} or $@ =~ /^PARI:\s\sat\s+\S*\s+line\s+\d+\.?\s*$/ |
|
1339
|
19 |
0 |
unless $in =~ s/(?:^|;)default\(parisize,("?)($matched_par)\1\)\s*$// |
|
1348
|
0 |
13 |
if $def and not ref $def |
|
1350
|
168 |
41 |
defined $1 ? : |
|
1361
|
0 |
0 |
length $_ ? : |
|
|
0 |
8 |
($pre = $_, s/(?:^|;)allocatemem\(((??{ $matched_par; }))\);?$//) ? : |
|
|
11 |
8 |
ref $_ ? : |
|
1363
|
0 |
13 |
if $quote or not @in |
|
1370
|
0 |
6 |
$echo && ref $IN ? : |
|
1371
|
0 |
0 |
$IN->[0] ? : |
|
|
0 |
6 |
$c && !($IN =~ /;$/) ? : |
|
|
0 |
6 |
ref $IN ? : |
|
1373
|
0 |
0 |
if $def and not ref $IN and $IN =~ /^(\w+)\((??{ $matched_par; })\)=(?!=)/ |
|
1375
|
11 |
2 |
$echo && ref $in ? : |
|
1376
|
11 |
0 |
$in->[0] ? : |
|
|
0 |
2 |
$c && !($in =~ /;$/) ? : |
|
|
11 |
2 |
ref $in ? : |
|
1378
|
0 |
11 |
if $def and not ref $in and $in =~ /^(\w+)\((??{ $matched_par; })\)=(?!=)/ |
|
1384
|
3 |
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" |