blib/lib/PDL/Core.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 84 | 120 | 70.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
745 | 6 | 0 | 2 | &Scalar::Util::blessed($op2) and $op2->isa('PDL') |
1024 | 69 | 3 | 0 | $has_nan and not $types[$type]->usenan |
1030 | 68 | 4 | 0 | $has_inf and not $types[$type]->usenan |
1251 | 58 | 0 | 0 | $PDL::debug and $PDL::undefval |
1271 | 500 | 9 | 96 | is_scalar_SvPOK($value) and $value =~ /inf/i || $value =~ /nan/i || !&Scalar::Util::looks_like_number($value) |
509 | 0 | 0 | $PDL::Core::Config{'ivsize'} < 8 and $PDL::Core::pack[$new->get_datatype] eq 'q*' | |
2147 | 13 | 1 | 1 | !ref($_) && $_ eq 'X' |
13 | 0 | 0 | $#$_ > 1 && @$_[2] == 0 | |
2530 | 147 | 63 | 4 | ref $_[0] && ref $_[0] ne 'PDL::Type' |
2571 | 62 | 16 | 5 | ref $_[0] && ref $_[0] ne 'PDL::Type' |
2646 | 35 | 38 | 8 | @_ == 2 and $_[1] == -1 |
2867 | 175 | 29 | 6 | $self->badflag and $self->isbad |
3139 | 238 | 0 | 0 | $chkmode == 1 and $this->nelem > 1 |
3141 | 236 | 0 | 2 | $chkmode == 2 and $this->nelem > 1 |
3215 | 0 | 62 | 2 | $d[$j] != 1 and $resdims[$j] != $d[$j] |
3246 | 0 | 3 | 3 | $i < @_ and not eval { do { $_[$i]->isa('PDL') } } |
3305 | 3 | 2 | 0 | @not_a_piddle == 0 and @mismatched_dims == 0 |
3482 | 239 | 151 | 71 | $badflag and $t eq 'BAD' |
3487 | 110 | 272 | 8 | $dformat and length $t > 7 |
3569 | 806 | 43 | 27 | $badflag and $x->[$i] eq 'BAD' |
4009 | 0 | 0 | 5 | $writable && $shared |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
477 | 1774 | 707 | 0 | ref $class || $class |
745 | 41 | 2 | 6 | &Scalar::Util::looks_like_number($op2) or &Scalar::Util::blessed($op2) and $op2->isa('PDL') |
917 | 0 | 0 | 9 | $this->fflows || $this->bflows |
975 | 1 | 1 | 94 | $value eq '' or $value eq '[]' |
983 | 6 | 4 | 84 | $value =~ /e\p{IsAlpha}/ or $value =~ /\p{IsAlpha}e/ |
995 | 2 | 2 | 80 | $value =~ /bad\B/ or $value =~ /\Bbad/ |
1000 | 0 | 0 | 80 | $value =~ /\Bnan/ or $value =~ /nan\B/ |
1014 | 0 | 2 | 76 | $value =~ /inf\B/ or $value =~ /\Binf/ |
1018 | 2 | 2 | 72 | $value =~ /pi\B/ or $value =~ /\Bpi/ |
1078 | 0 | 0 | 68 | $value =~ /EE[+\-]/ or $value =~ /[+\-]EE/ |
1184 | 5 | 0 | 280 | s/^inf//i or s/1\.\#INF//i |
3 | 0 | 277 | s/^nan//i or s/^1\.\#IND//i | |
1271 | 12 | 84 | 9 | $value =~ /inf/i || $value =~ /nan/i || !&Scalar::Util::looks_like_number($value) |
2214 | 110 | 4 | 0 | ref \$_[1] eq 'SCALAR' or ref $_[1] eq 'ARRAY' |
3214 | 1 | 0 | 63 | not defined $resdims[$j] or $resdims[$j] == 1 |
3234 | 2 | 0 | 3 | $@ =~ /PDL::Ops::assgn|mismatched/ or $@ =~ /"badflag"/ |
2 | 3 | 0 | $@ =~ /PDL::Ops::assgn|mismatched/ or $@ =~ /"badflag"/ or $@ =~ /"initialize"/ | |
3512 | 56 | 0 | 0 | not defined $format or $format eq '' |
3963 | 0 | 0 | 0 | defined $pdl->gethdr or not defined $Astro::FITS::Header::VERSION |