| 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 |
42456 |
if ($sv->type eq "CODE" and $sv->oproot and $sv->is_clone) |
|
260
|
0 |
573465 |
if $progress and keys(%heap) % 5000 == 0 |
|
271
|
7 |
0 |
if (my $mortalcount = $self->_read_uint) |
|
276
|
54 |
3 |
unless ($sv) |
|
285
|
7 |
0 |
unless $args{'no_fixup'} |
|
312
|
223 |
239 |
unless my $sv = $self->root($name) |
|
318
|
0 |
573465 |
unless my $sv = $heap->{$addr} |
|
322
|
107252 |
466213 |
if $sv->can("_fixup") |
|
325
|
0 |
573465 |
if $progress and $count % 20000 == 0 |
|
330
|
7 |
0 |
if ($self->{'format_minor'} >= 2) |
|
334
|
2 |
3 |
unless $ctx->type eq "SUB" |
|
351
|
4411 |
1564790 |
if $len == 0 |
|
352
|
0 |
1564790 |
unless defined $self->{'fh'}->read(my $buf, $len) |
|
359
|
0 |
1107994 |
unless defined $self->{'fh'}->read(my $buf, 1) |
|
366
|
0 |
14 |
unless defined $self->{'fh'}->read(my $buf, 4) |
|
373
|
0 |
0 |
unless defined $self->{'fh'}->read(my $buf, 8) |
|
380
|
0 |
988049 |
unless defined $self->{'fh'}->read(my $buf, $self->{'uint_len'}) |
|
387
|
0 |
592949 |
unless defined $self->{'fh'}->read(my $buf, $self->{'ptr_len'}) |
|
395
|
0 |
998039 |
unless defined $self->{'fh'}->read(my $buf, $self->{'ptr_len'} * $n) |
|
402
|
0 |
0 |
unless defined $self->{'fh'}->read(my $buf, $self->{'nv_len'}) |
|
410
|
211709 |
545656 |
if $len == $self->{'minus_1'} |
|
422
|
1023517 |
165301 |
$nbytes ? : |
|
|
966576 |
222242 |
$nptrs ? : |
|
|
317189 |
871629 |
$nstrs ? : |
|
431
|
7 |
615343 |
unless $type |
|
433
|
0 |
615343 |
if ($type >= 241) { } |
|
|
0 |
615343 |
elsif ($type == 240) { } |
|
|
41878 |
573465 |
elsif ($type >= 128) { } |
|
457
|
0 |
41878 |
if ($self->{'format_minor'} == 0 and $type == 128) { } |
|
|
0 |
41878 |
elsif (not $sizes) { } |
|
476
|
41878 |
0 |
if (my $code = $self->can(sprintf('_read_svx_%02X', $type))) { } |
|
493
|
0 |
573465 |
if ($type == 127) { } |
|
549
|
1 |
0 |
if $av->isa("Devel::MAT::SV::ARRAY") |
|
558
|
1 |
0 |
if $hv->isa("Devel::MAT::SV::HASH") |
|
594
|
7 |
5 |
unless $type |
|
596
|
5 |
0 |
if ($self->{'format_minor'} >= 2) { } |
|
644
|
0 |
0 |
$self->{'big_endian'} ? : |
|
747
|
354 |
42 |
$a =~ /^\+(.*)/u ? : |
|
753
|
14 |
118 |
$a =~ /^\-(.*)/u ? : |
|
826
|
462 |
0 |
$self->{'roots'}{$name} ? : |
|
840
|
223 |
239 |
unless my $root_at = $self->root_at(@_) |
|
903
|
894655 |
12498492 |
unless $addr |
|
905
|
1707 |
12496785 |
if $addr == $self->{'undef_at'} |
|
906
|
1096 |
12495689 |
if $addr == $self->{'yes_at'} |
|
907
|
21 |
12495668 |
if $addr == $self->{'no_at'} |