| line |
true |
false |
branch |
|
114
|
42 |
0 |
$self->{'roots'}{$name} ? : |
|
154
|
0 |
7 |
if $progress |
|
156
|
0 |
7 |
unless open my $fh, "<", $path |
|
162
|
0 |
7 |
unless $self->_read(4) eq "PMAT" |
|
166
|
0 |
7 |
($self->{'big_endian'} = $flags & 1) ? : |
|
171
|
7 |
0 |
$flags & 2 ? : |
|
174
|
7 |
0 |
$flags & 4 ? : |
|
177
|
0 |
7 |
$flags & 8 ? : |
|
183
|
0 |
7 |
if $flags |
|
187
|
0 |
7 |
unless $self->_read_u8 == 0 |
|
189
|
0 |
7 |
unless $self->_read_u8 == 0 |
|
192
|
0 |
7 |
unless ($self->{'format_minor'} = $self->_read_u8) <= 5 |
|
194
|
0 |
7 |
if $self->{'format_minor'} == 5 |
|
196
|
0 |
7 |
if ($self->{'format_minor'} < 1) |
|
206
|
7 |
0 |
if ($self->{'format_minor'} >= 4) { } |
|
218
|
7 |
0 |
if ($self->{'format_minor'} >= 2) |
|
240
|
7 |
434 |
unless $desc =~ /^[+-]/u |
|
255
|
951 |
42449 |
if ($sv->type eq "CODE" and $sv->oproot and $sv->is_clone) |
|
260
|
0 |
573408 |
if $progress and keys(%heap) % 5000 == 0 |
|
271
|
0 |
7 |
if (my $mortalcount = $self->_read_uint) |
|
278
|
7 |
0 |
unless $args{'no_fixup'} |
|
305
|
223 |
239 |
unless my $sv = $self->root($name) |
|
311
|
0 |
573408 |
unless my $sv = $heap->{$addr} |
|
315
|
107273 |
466135 |
if $sv->can("_fixup") |
|
318
|
0 |
573408 |
if $progress and $count % 20000 == 0 |
|
323
|
7 |
0 |
if ($self->{'format_minor'} >= 2) |
|
327
|
2 |
3 |
unless $ctx->type eq "SUB" |
|
344
|
4411 |
1564796 |
if $len == 0 |
|
345
|
0 |
1564796 |
unless defined $self->{'fh'}->read(my $buf, $len) |
|
352
|
0 |
1107769 |
unless defined $self->{'fh'}->read(my $buf, 1) |
|
359
|
0 |
14 |
unless defined $self->{'fh'}->read(my $buf, 4) |
|
366
|
0 |
0 |
unless defined $self->{'fh'}->read(my $buf, 8) |
|
373
|
0 |
988031 |
unless defined $self->{'fh'}->read(my $buf, $self->{'uint_len'}) |
|
380
|
0 |
592887 |
unless defined $self->{'fh'}->read(my $buf, $self->{'ptr_len'}) |
|
388
|
0 |
997953 |
unless defined $self->{'fh'}->read(my $buf, $self->{'ptr_len'} * $n) |
|
395
|
0 |
0 |
unless defined $self->{'fh'}->read(my $buf, $self->{'nv_len'}) |
|
403
|
211669 |
545755 |
if $len == $self->{'minus_1'} |
|
415
|
1023424 |
165273 |
$nbytes ? : |
|
|
966499 |
222198 |
$nptrs ? : |
|
|
317162 |
871535 |
$nstrs ? : |
|
424
|
7 |
615279 |
unless $type |
|
426
|
0 |
615279 |
if ($type >= 241) { } |
|
|
0 |
615279 |
elsif ($type == 240) { } |
|
|
41871 |
573408 |
elsif ($type >= 128) { } |
|
450
|
0 |
41871 |
if ($self->{'format_minor'} == 0 and $type == 128) { } |
|
|
0 |
41871 |
elsif (not $sizes) { } |
|
469
|
41871 |
0 |
if (my $code = $self->can(sprintf('_read_svx_%02X', $type))) { } |
|
486
|
0 |
573408 |
if ($type == 127) { } |
|
542
|
1 |
0 |
if $av->isa("Devel::MAT::SV::ARRAY") |
|
551
|
1 |
0 |
if $hv->isa("Devel::MAT::SV::HASH") |
|
587
|
7 |
5 |
unless $type |
|
589
|
5 |
0 |
if ($self->{'format_minor'} >= 2) { } |
|
637
|
0 |
0 |
$self->{'big_endian'} ? : |
|
740
|
354 |
42 |
$a =~ /^\+(.*)/u ? : |
|
746
|
14 |
118 |
$a =~ /^\-(.*)/u ? : |
|
819
|
462 |
0 |
$self->{'roots'}{$name} ? : |
|
833
|
223 |
239 |
unless my $root_at = $self->root_at(@_) |
|
896
|
894713 |
12502221 |
unless $addr |
|
898
|
1707 |
12500514 |
if $addr == $self->{'undef_at'} |
|
899
|
1096 |
12499418 |
if $addr == $self->{'yes_at'} |
|
900
|
21 |
12499397 |
if $addr == $self->{'no_at'} |