| line |
true |
false |
branch |
|
285
|
0 |
4 |
if UNIVERSAL::isa($_[0], 'PDLA::Complex') |
|
286
|
0 |
4 |
unless $_[0]->dims > 0 and $_[0]->dim(0) == 2 |
|
291
|
2 |
8 |
if UNIVERSAL::isa($_[0], 'PDLA::Complex') |
|
292
|
0 |
8 |
unless $_[0]->dims > 0 and $_[0]->dim(0) == 2 |
|
300
|
0 |
62 |
unless UNIVERSAL::isa($_[0], 'PDLA::Complex') |
|
332
|
0 |
73 |
if UNIVERSAL::isa($_[0], 'PDLA::Complex') |
|
1309
|
6 |
15 |
if (/(\S+)\+(\w+)/) { } |
|
|
15 |
0 |
elsif (/(\S+)\-(\w+)/) { } |
|
1310
|
10 |
25 |
ref $_[1] eq 'PDLA::Complex' ? : |
|
|
6 |
22 |
ref $_[1] eq 'PDLA::Complex' ? : |
|
1312
|
7 |
9 |
ref $_[1] eq 'PDLA::Complex' ? : |
|
|
3 |
13 |
$_[2] ? : |
|
|
1 |
4 |
ref $_[1] eq 'PDLA::Complex' ? : |
|
|
0 |
5 |
$_[2] ? : |
|
|
1 |
0 |
ref $_[1] eq 'PDLA::Complex' ? : |
|
|
0 |
1 |
$_[2] ? : |
|
|
10 |
0 |
ref $_[1] eq 'PDLA::Complex' ? : |
|
|
0 |
10 |
$_[2] ? : |
|
|
7 |
0 |
ref $_[1] eq 'PDLA::Complex' ? : |
|
|
0 |
7 |
$_[2] ? : |
|
1317
|
6 |
15 |
if ($1 eq 'atan2' or $1 eq '<=>') |
|
1323
|
18 |
0 |
if $op =~ /\w+/ |
|
1335
|
1 |
520 |
ref $_[0] ? : |
|
1343
|
2 |
0 |
ref $_[1] eq 'PDLA::Complex' ? : |
|
1344
|
0 |
2 |
$_[2] ? : |
|
|
2 |
0 |
&PDLA::lt($_[2] ? $y <=> $_[0] : $_[0] <=> $y, 0, 0) ? : |
|
1345
|
1 |
0 |
ref $_[1] eq 'PDLA::Complex' ? : |
|
1346
|
0 |
1 |
$_[2] ? : |
|
|
1 |
0 |
&PDLA::le($_[2] ? $y <=> $_[0] : $_[0] <=> $y, 0, 0) ? : |
|
1347
|
1 |
0 |
ref $_[1] eq 'PDLA::Complex' ? : |
|
1348
|
0 |
1 |
$_[2] ? : |
|
|
1 |
0 |
&PDLA::eq($_[2] ? $y <=> $_[0] : $_[0] <=> $y, 0, 0) ? : |
|
1349
|
1 |
0 |
ref $_[1] eq 'PDLA::Complex' ? : |
|
1350
|
0 |
1 |
$_[2] ? : |
|
|
0 |
1 |
&PDLA::ne($_[2] ? $y <=> $_[0] : $_[0] <=> $y, 0, 0) ? : |
|
1351
|
1 |
0 |
ref $_[1] eq 'PDLA::Complex' ? : |
|
1352
|
0 |
1 |
$_[2] ? : |
|
|
1 |
0 |
&PDLA::ge($_[2] ? $y <=> $_[0] : $_[0] <=> $y, 0, 0) ? : |
|
1353
|
1 |
0 |
ref $_[1] eq 'PDLA::Complex' ? : |
|
1354
|
0 |
1 |
$_[2] ? : |
|
|
1 |
0 |
&PDLA::gt($_[2] ? $y <=> $_[0] : $_[0] <=> $y, 0, 0) ? : |
|
1374
|
2 |
6 |
if (ref $_[1] and ref $_[1] ne 'PDLA' and defined($foo = overload::Method($_[1], '+'))) { } |
|
1383
|
0 |
8 |
if (ref $_[1] and ref $_[1] ne 'PDLA' and defined($foo = overload::Method($_[1], '*'))) { } |
|
1392
|
1 |
57 |
if (ref $_[1] and ref $_[1] ne 'PDLA' and defined($foo = overload::Method($_[1], '-'))) { } |
|
1401
|
0 |
0 |
if (ref $_[1] and ref $_[1] ne 'PDLA' and defined($foo = overload::Method($_[1], '/'))) { } |
|
1433
|
0 |
7 |
if $dims[0] != 2 |
|
1435
|
0 |
7 |
if ($_STRINGIZING) |
|
1440
|
0 |
7 |
if ($self->nelem > $PDLA::toolongtoprint) |
|
1443
|
0 |
7 |
if ($ndims == 0) |
|
1446
|
0 |
7 |
if $self->isnull |
|
1447
|
0 |
7 |
if $self->isempty |
|
1448
|
0 |
7 |
$PDLA::use_commas ? : |
|
1449
|
0 |
7 |
$PDLA::use_commas ? : |
|
1450
|
6 |
1 |
if ($ndims < 3) { } |
|
1461
|
0 |
5 |
if $x->dims == 1 |
|
1477
|
0 |
4 |
if $x->dims == 1 |
|
1488
|
1 |
0 |
if ($#dims == 2) { } |
|
1500
|
0 |
0 |
if $PDLA::use_commas |
|
1511
|
0 |
6 |
if $self->getndims > 2 |
|
1516
|
0 |
6 |
if $dtype == $PDLA_F |
|
1517
|
6 |
0 |
if $dtype == $PDLA_D |
|
1519
|
2 |
4 |
if $self->getndims > 1 |
|
1523
|
0 |
20 |
if ($badflag and $t eq 'BAD') { } |
|
|
0 |
20 |
elsif ($format1) { } |
|
1528
|
0 |
20 |
if ($dformat and length $t > 7) |
|
1532
|
4 |
6 |
$i < $#$x ? : |
|
|
0 |
10 |
substr($$x[$i + 1], 0, 1) eq '-' ? : |
|
|
10 |
10 |
$i % 2 ? : |
|
1536
|
2 |
4 |
if $self->getndims > 1 |
|
1544
|
0 |
1 |
if scalar @dims != 3 |
|
1553
|
0 |
0 |
if (not defined $format1 && defined $format2 or $format1 eq '' or $format2 eq '') |
|
1557
|
0 |
1 |
if ($badflag) { } |
|
1559
|
0 |
0 |
if ($x->[$i] eq 'BAD') { } |
|
1565
|
0 |
0 |
if ($i % 2) { } |
|
1566
|
0 |
0 |
if $f > $len2 |
|
1569
|
0 |
0 |
if $f > $len1 |
|
1575
|
1 |
1 |
if ($i % 2) { } |
|
1576
|
1 |
0 |
if $f > $len2 |
|
1579
|
1 |
0 |
if $f > $len1 |
|
1587
|
1 |
0 |
if ($len1 > 5) |
|
1588
|
0 |
1 |
if ($dtype == $PDLA_F) { } |
|
|
1 |
0 |
elsif ($dtype == $PDLA_D) { } |
|
1598
|
1 |
0 |
if ($len2 > 5) |
|
1599
|
0 |
1 |
if ($dtype == $PDLA_F) { } |
|
|
1 |
0 |
elsif ($dtype == $PDLA_D) { } |
|
1606
|
0 |
0 |
unless $findmax |
|
1611
|
1 |
0 |
if ($findmax) |
|
1614
|
0 |
1 |
if ($badflag) { } |
|
1617
|
0 |
0 |
if ($x->[$i] eq 'BAD') { } |
|
1621
|
0 |
0 |
$findmax ? : |
|
1624
|
0 |
0 |
if ($findmax) { } |
|
1625
|
0 |
0 |
if $f > $len2 |
|
1628
|
0 |
0 |
if $f > $len1 |
|
1633
|
1 |
1 |
if ($i % 2) { } |
|
1635
|
1 |
0 |
if $f > $len2 |
|
1639
|
1 |
0 |
if $f > $len1 |
|
1655
|
1 |
1 |
if ($findmax) { } |
|
1656
|
0 |
1 |
if ($badflag and $x->[$i] eq 'BAD') { } |
|
1664
|
0 |
1 |
if (substr($x->[$i], 0, 1) eq '-') { } |
|
1674
|
0 |
1 |
if ($badflag and $x->[$i] eq 'BAD') { } |
|
1683
|
0 |
2 |
if $t > 0 |
|
1686
|
1 |
1 |
if (($i + 1) % ($dims[1] * 2)) { } |
|
1687
|
0 |
1 |
if $findmax |
|
1691
|
1 |
0 |
if ($i == $#$x) { } |