Branch Coverage

blib/lib/PDL/IO/Dumper.pm
Criterion Covered Total %
branch 38 56 67.8


line true false branch
110 0 11 if $pdls{$v} > 1
112 0 7 if $dups
156 0 0 unless (defined $fh)
191 0 0 unless (defined $fh)
242 1 10 if $x->nelem <= $PDL::IO::Dumper::small_thresh and not keys %{$x->hdr;}
247 6 4 if $x->nelem <= $PDL::IO::Dumper::med_thresh and not +(tied %{$x->hdr;} || '') =~ /^Astro::FITS::Header\=/
282 0 7 unless (ref $pdl)
288 0 7 if ($pdl->nelem == 0)
299 7 0 if (defined $PDL::IO::Dumper::stringify_formats{$t}) { }
302 0 0 unless ($PDL::IO::Dumper::stringify_warned)
316 7 0 $PDL::IO::Dumper::stringify_formats{$t} ? :
348 4 776 if ($file eq "" and not $mode)
352 0 776 if $file eq "" and not $mode
353 4 772 if $line =~ /^end/
389 1 10 if ($style == 0) { }
397 6 4 if ($style == 1) { }
438 3 1 unless (scalar keys %{$_->hdr;})
458 2 8 if (scalar keys %{$_->hdr;})
459 0 2 if ((tied %{$_->hdr;} || '') =~ /Astro::FITS::Header\=/) { }
502 10 1 if ($line =~ /^my\(\$(PDL_\d+)\)/)
504 0 10 if $seen{$id}
527 3 22 unless ref $item
529 2 20 if (UNIVERSAL::isa($item, 'ARRAY')) { }
5 15 elsif (UNIVERSAL::isa($item, 'HASH')) { }
15 0 elsif (UNIVERSAL::isa($item, 'PDL')) { }
0 0 elsif (UNIVERSAL::isa($item, 'SCALAR')) { }
553 11 4 unless ($seen->{$pdlid})
557 1 10 if defined $strings[1]