line |
true |
false |
branch |
456
|
0 |
0 |
scalar @_ ? : |
460
|
0 |
0 |
if (defined $class) { } |
503
|
0 |
0 |
ref $arg ? : |
729
|
0 |
0 |
unless (&Scalar::Util::looks_like_number($op2) or &Scalar::Util::blessed($op2) and $op2->isa('PDLA')) |
805
|
0 |
0 |
if $_[0]->isnull |
806
|
0 |
0 |
unless $_[0]->nelem == 1 |
812
|
0 |
0 |
if ($_[2]) { } |
835
|
0 |
0 |
if ('PDLA::Type' eq ref $t) |
959
|
0 |
0 |
if $value eq '' or $value eq '[]' |
967
|
0 |
0 |
if $value =~ /e\p{IsAlpha}/ or $value =~ /\p{IsAlpha}e/ |
979
|
0 |
0 |
if $value =~ /bad\B/ or $value =~ /\Bbad/ |
984
|
0 |
0 |
if $value =~ /\Bnan/ or $value =~ /nan\B/ |
986
|
0 |
0 |
if $value =~ s/\bnan\b/ee/gi |
988
|
0 |
0 |
if $value =~ /IND\B/i |
990
|
0 |
0 |
if $value =~ s/1\.\#IND/ee/gi |
994
|
0 |
0 |
if $value =~ /INF\B/i |
996
|
0 |
0 |
if $value =~ s/1\.\#INF/Ee/gi |
998
|
0 |
0 |
if $value =~ /inf\B/ or $value =~ /\Binf/ |
1000
|
0 |
0 |
if $value =~ s/\binf\b/Ee/gi |
1002
|
0 |
0 |
if $value =~ /pi\B/ or $value =~ /\Bpi/ |
1008
|
0 |
0 |
if ($has_nan and not $types[$type]->usenan) |
1014
|
0 |
0 |
if $has_inf and not $types[$type]->usenan |
1020
|
0 |
0 |
if (my($disallowed) = $value =~ /([^\[\]\+\-0-9;,.eE ]+)/) |
1035
|
0 |
0 |
if ($value =~ /;/) |
1062
|
0 |
0 |
if $value =~ /EE[+\-]/ or $value =~ /[+\-]EE/ |
1066
|
0 |
0 |
if (my($disallowed) = $value =~ /((\D+|\A)[eE]\d+)/) |
1096
|
0 |
0 |
if ($_[0] =~ /(Argument ".*" isn't numeric)/) { } |
|
0 |
0 |
elsif ($old_warn_handler) { } |
1116
|
0 |
0 |
if $PDLA::Config{'BADVAL_USENAN'} |
1118
|
0 |
0 |
if (ref $val eq 'ARRAY') { } |
1120
|
0 |
0 |
if ($to_return->dim(-1) == 1) |
1121
|
0 |
0 |
if ($to_return->dims > 1) { } |
|
0 |
0 |
elsif ($to_return->dims == 1) { } |
1135
|
0 |
0 |
if ($@) { } |
1159
|
0 |
0 |
unless s/^\[// |
1168
|
0 |
0 |
if (/^\[/) { } |
|
0 |
0 |
elsif (s/^\+//) { } |
|
0 |
0 |
elsif (s/^\-//) { } |
|
0 |
0 |
elsif (s/^bad//i) { } |
|
0 |
0 |
elsif (s/^inf//i or s/1\.\#INF//i) { } |
|
0 |
0 |
elsif (s/^nan//i or s/^1\.\#IND//i) { } |
|
0 |
0 |
elsif (s/^pi//i) { } |
|
0 |
0 |
elsif (s/^e//i) { } |
|
0 |
0 |
elsif (s/^([\d+\-e.]+)//i) { } |
1169
|
0 |
0 |
if $expects_number |
1175
|
0 |
0 |
if $expects_number |
1181
|
0 |
0 |
if $expects_number |
1194
|
0 |
0 |
if ($sign == -1) { } |
1228
|
0 |
0 |
if ref $this |
1229
|
0 |
0 |
ref $_[0] eq 'PDLA::Type' ? : |
1230
|
0 |
0 |
@_ > 1 ? : |
1232
|
0 |
0 |
unless (defined $value) |
1233
|
0 |
0 |
if ($PDLA::debug and $PDLA::undefval) |
1239
|
0 |
0 |
if ref $value eq 'ARRAY' |
1244
|
0 |
0 |
if (ref \$value eq 'SCALAR') { } |
|
0 |
0 |
elsif (blessed($value)) { } |
1253
|
0 |
0 |
if (is_scalar_SvPOK($value) and $value =~ /inf/i || $value =~ /nan/i || !&Scalar::Util::looks_like_number($value)) { } |
1298
|
0 |
0 |
unless blessed($value) |
1300
|
0 |
0 |
unless defined $option |
1301
|
0 |
0 |
if ($value->is_inplace) |
1344
|
0 |
0 |
if $PDLA::debug |
1346
|
0 |
0 |
unless (ref($hdr) =~ /HASH/) |
1347
|
0 |
0 |
if $PDLA::debug |
1351
|
0 |
0 |
if ($tobj = tied %$hdr) { } |
|
0 |
0 |
elsif (UNIVERSAL::can($hdr, 'copy')) { } |
1352
|
0 |
0 |
if $PDLA::debug |
1353
|
0 |
0 |
if (UNIVERSAL::can($tobj, 'copy')) |
1356
|
0 |
0 |
if $PDLA::debug |
1364
|
0 |
0 |
if (UNIVERSAL::isa($tobj, 'Astro::FITS::Header')) |
1365
|
0 |
0 |
if $PDLA::debug |
1369
|
0 |
0 |
if $PDLA::debug |
1374
|
0 |
0 |
if $PDLA::debug |
1379
|
0 |
0 |
if $PDLA::debug |
1393
|
0 |
0 |
if (ref $val eq 'HASH') |
1397
|
0 |
0 |
ref $value ? : |
1402
|
0 |
0 |
if (ref $val eq 'ARRAY') |
1405
|
0 |
0 |
ref $z ? : |
1410
|
0 |
0 |
if (ref $val eq 'SCALAR') |
1415
|
0 |
0 |
if (ref $val eq 'REF') |
1421
|
0 |
0 |
if (UNIVERSAL::isa($val, 'PDLA')) |
1423
|
0 |
0 |
if $h = $val->hdrcpy |
1425
|
0 |
0 |
if $h |
1429
|
0 |
0 |
if (UNIVERSAL::can($val, 'copy')) |
1539
|
0 |
0 |
unless defined $dim |
1540
|
0 |
0 |
if $dim < 0 |
1541
|
0 |
0 |
defined $size ? : |
1543
|
0 |
0 |
if $dim < 0 |
1548
|
0 |
0 |
$dim_diff > 0 ? : |
1549
|
0 |
0 |
$dim_diff > 0 ? : |
1610
|
0 |
0 |
if ($#_ < 2) { } |
1611
|
0 |
0 |
if $_[1] > $ndims |
1618
|
0 |
0 |
if @dims > $ndims |
1620
|
0 |
0 |
if $dim > $ndims - 1 |
1622
|
0 |
0 |
if $targd > $dim |
1623
|
0 |
0 |
if $dimmark[$dim]++ > $dim |
1626
|
0 |
0 |
if $targd > 0 |
1710
|
0 |
0 |
if ($str =~ s/[,]*\s*NOtherPars\s*=>\s*([0-9]+)\s*[,]*//) |
1711
|
0 |
0 |
unless $str =~ /\s*([^(]+)\((.+)\)\s*$/x |
1713
|
0 |
0 |
if $PDLA::debug |
1717
|
0 |
0 |
if $args == 0 |
1725
|
0 |
0 |
if $PDLA::debug |
1727
|
0 |
0 |
if $@ |
1929
|
0 |
0 |
if ($nids > 0) |
2043
|
0 |
0 |
unless defined $str |
2044
|
0 |
0 |
if dimstr($this) =~ /D \[0\]/ |
2050
|
0 |
0 |
if ($form =~ s/^%([-,0-9]*[.]?[0-9]*)(\w)$/%$1s/) |
2051
|
0 |
0 |
unless defined $info{$2} |
2093
|
0 |
0 |
unless defined $eps |
2119
|
0 |
0 |
$_[0] =~ /\(.*\)/ ? : |
2126
|
0 |
0 |
$#$_ > 1 && @$_[2] == 0 ? : |
|
0 |
0 |
!ref($_) ? : |
|
0 |
0 |
ref $_ eq 'ARRAY' ? : |
|
0 |
0 |
!ref($_) && $_ eq 'X' ? : |
2156
|
0 |
0 |
if (ref $pdl eq 'CODE') |
2176
|
0 |
0 |
unless ($PDLA::nslice_warning_issued) |
2185
|
0 |
0 |
$ref =~ /^(REF|SCALAR|ARRAY|HASH|CODE|GLOB||)$/ ? : |
2191
|
0 |
0 |
if $#_ > 1 |
2192
|
0 |
0 |
if blessed($_[1]) |
2193
|
0 |
0 |
if ref \$_[1] eq 'SCALAR' or ref $_[1] eq 'ARRAY' |
2201
|
0 |
0 |
if blessed($_[1]) |
2308
|
0 |
0 |
if ($pdl->is_inplace) { } |
2312
|
0 |
0 |
if (not defined $preferred) { } |
2315
|
0 |
0 |
if ref $preferred eq 'ARRAY' |
2317
|
0 |
0 |
if ($preferred =~ /(^|\,)$s(\,|$)/i) { } |
2388
|
0 |
0 |
ref $_[0] eq 'PDLA::Type' ? : |
2391
|
0 |
0 |
if (ref $_) { } |
2392
|
0 |
0 |
unless $_->isa('PDLA') |
2393
|
0 |
0 |
if $_->getndims > 1 |
2395
|
0 |
0 |
if $_->nelem > 10 |
2399
|
0 |
0 |
if ($_) { } |
2400
|
0 |
0 |
if $_ < 0 |
2410
|
0 |
0 |
if $PDLA::debug |
2505
|
0 |
0 |
ref $_[0] && ref $_[0] ne 'PDLA::Type' ? : |
2508
|
0 |
0 |
scalar @_ ? : |
2546
|
0 |
0 |
ref $_[0] && ref $_[0] ne 'PDLA::Type' ? : |
2549
|
0 |
0 |
scalar @_ ? : |
2620
|
0 |
0 |
if (@_ == 2 and $_[1] == -1) |
2621
|
0 |
0 |
$_ == 1 ? : |
2626
|
0 |
0 |
if $dim < 0 |
2627
|
0 |
0 |
if @dims == 0 |
2630
|
0 |
0 |
if ($pdl->nelem > $nelem) |
2679
|
0 |
0 |
$_[0]->getndims != 1 ? : |
2707
|
0 |
0 |
if $#_ != 1 |
2709
|
0 |
0 |
unless ref $pdl |
2710
|
0 |
0 |
if ref $type eq 'PDLA::Type' |
2711
|
0 |
0 |
unless &Scalar::Util::looks_like_number($type) |
2712
|
0 |
0 |
if $pdl->get_datatype == $type |
2831
|
0 |
0 |
if ($PDLA::_STRINGIZING) |
2836
|
0 |
0 |
if ($self->nelem > $PDLA::toolongtoprint) |
2839
|
0 |
0 |
if ($ndims == 0) |
2840
|
0 |
0 |
if ($self->badflag and $self->isbad) { } |
2844
|
0 |
0 |
$format ? : |
2847
|
0 |
0 |
if $self->isnull |
2848
|
0 |
0 |
if $self->isempty |
2849
|
0 |
0 |
$PDLA::use_commas ? : |
2850
|
0 |
0 |
$PDLA::use_commas ? : |
2851
|
0 |
0 |
if ($ndims == 1) { } |
2858
|
0 |
0 |
if ($@) |
2900
|
0 |
0 |
if $#_ != 0 |
2902
|
0 |
0 |
if nelem($pdl) == 0 |
2944
|
0 |
0 |
if $#_ != 0 |
2946
|
0 |
0 |
if $pdl->nelem == 0 |
2952
|
0 |
0 |
if ($pdl->ndims > 1) { } |
2985
|
0 |
0 |
if $#_ != 0 |
2987
|
0 |
0 |
if nelem($pdl) == 0 |
2988
|
0 |
0 |
if scalar dims($pdl) != 1 |
3022
|
0 |
0 |
if $#_ < 2 |
3058
|
0 |
0 |
if $#_ < 0 |
3109
|
0 |
0 |
if (ref $this) { } |
3110
|
0 |
0 |
if $chkmode == 1 and $this->nelem > 1 |
3112
|
0 |
0 |
if $chkmode == 2 and $this->nelem > 1 |
3117
|
0 |
0 |
if (lc $check eq 'warn') { } |
|
0 |
0 |
elsif (lc $check eq 'barf') { } |
3119
|
0 |
0 |
$check != 0 ? : |
3178
|
0 |
0 |
if not defined $resdims[$j] or $resdims[$j] == 1 |
3179
|
0 |
0 |
if $d[$j] != 1 and $resdims[$j] != $d[$j] |
3187
|
0 |
0 |
if ($_->badflag) |
3189
|
0 |
0 |
if ($@ eq '') |
3198
|
0 |
0 |
if ($@ =~ /PDLA::Ops::assgn|mismatched/ or $@ =~ /"badflag"/ or $@ =~ /"initialize"/) { } |
3206
|
0 |
0 |
if ($@ =~ /"initialize"/) |
3208
|
0 |
0 |
unless @_ |
3219
|
0 |
0 |
if ref($_[$i]) =~ /PDLA/ |
3225
|
0 |
0 |
if (not eval {
do {
$arg->isa('PDLA')
}
}) { } |
|
0 |
0 |
elsif (@dims != $arg->ndims) { } |
3235
|
0 |
0 |
if ($dims[$j] != $arg->dim($j)) |
3246
|
0 |
0 |
if (@mismatched_dims > 1) { } |
|
0 |
0 |
elsif (@mismatched_dims) { } |
3258
|
0 |
0 |
if (@not_a_piddle > 1) { } |
|
0 |
0 |
elsif (@not_a_piddle) { } |
3269
|
0 |
0 |
if (@not_a_piddle == 0 and @mismatched_dims == 0) |
3329
|
0 |
0 |
if ref $_[-1] eq 'HASH' |
3334
|
0 |
0 |
if $opt->{'Break'} |
3349
|
0 |
0 |
if (ref $a eq 'ARRAY') { } |
|
0 |
0 |
elsif (ref $a eq 'PDLA') { } |
3351
|
0 |
0 |
if (defined $dims[$level]) { } |
3352
|
0 |
0 |
unless $dims[$level] == scalar @$a |
3358
|
0 |
0 |
if ($type) { } |
3361
|
0 |
0 |
unless $type eq ref $_ |
3367
|
0 |
0 |
defined $_ ? : |
3380
|
0 |
0 |
if (ref \$x eq 'SCALAR') { } |
|
0 |
0 |
elsif (ref $x eq 'SCALAR') { } |
|
0 |
0 |
elsif (ref $x eq 'ARRAY') { } |
|
0 |
0 |
elsif (ref $x eq 'HASH') { } |
|
0 |
0 |
elsif (blessed($x)) { } |
3411
|
0 |
0 |
if ($#dims == 1) { } |
3424
|
0 |
0 |
if $PDLA::use_commas |
3435
|
0 |
0 |
if $self->getndims != 1 |
3440
|
0 |
0 |
if $dtype == $PDLA::Core::PDLA_F |
3441
|
0 |
0 |
if $dtype == $PDLA::Core::PDLA_D |
3445
|
0 |
0 |
if ($badflag and $t eq 'BAD') { } |
|
0 |
0 |
elsif ($format) { } |
3450
|
0 |
0 |
if ($dformat and length $t > 7) |
3467
|
0 |
0 |
if scalar @dims != 2 |
3475
|
0 |
0 |
if (not defined $format or $format eq '') |
3479
|
0 |
0 |
if ($badflag) { } |
3481
|
0 |
0 |
if ($_ eq 'BAD') { } |
3483
|
0 |
0 |
$i > $len ? : |
3486
|
0 |
0 |
$i > $len ? : |
3491
|
0 |
0 |
if ($len > 7) { } |
3492
|
0 |
0 |
if ($dtype == $PDLA::Core::PDLA_F) { } |
|
0 |
0 |
elsif ($dtype == $PDLA::Core::PDLA_D) { } |
3507
|
0 |
0 |
if ($findmax) |
3511
|
0 |
0 |
if ($badflag) { } |
3513
|
0 |
0 |
if ($_ eq 'BAD') { } |
3515
|
0 |
0 |
$i > $len ? : |
3519
|
0 |
0 |
$i > $len ? : |
3530
|
0 |
0 |
if ($badflag and $x->[$i] eq 'BAD') { } |
3536
|
0 |
0 |
if $t > 0 |
3538
|
0 |
0 |
if (($i + 1) % $dims[0]) { } |
3543
|
0 |
0 |
if ($i == $#$x) { } |
3924
|
0 |
0 |
if defined $pdl->gethdr or not defined $Astro::FITS::Header::VERSION |
3941
|
0 |
117 |
if ($@) |
3942
|
0 |
0 |
if $PDLA::verbose |
3970
|
0 |
0 |
$writable && $shared ? : |
|
0 |
0 |
$creat ? : |
|
0 |
0 |
unless sysopen my $fh, $name, ($writable && $shared ? 2 : 0) | ($creat ? 64 : 0), $mode |
3975
|
0 |
0 |
if ($trunc) |
3976
|
0 |
0 |
unless truncate $fh, 0 |
3977
|
0 |
0 |
unless truncate $fh, $len |
3980
|
0 |
0 |
if ($len) { } |
3984
|
0 |
0 |
if ($PDLA::debug) |
3985
|
0 |
0 |
$writable ? : |
|
0 |
0 |
$shared ? : |
3996
|
0 |
0 |
$writable ? : |
|
0 |
0 |
$shared ? : |
4011
|
0 |
0 |
if ($PDLA::debug) |