| 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) |