| 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
|
888 |
39544 |
if ($sv->type eq "CODE" and $sv->oproot and $sv->is_clone) |
|
260
|
0 |
539875 |
if $progress and keys(%heap) % 5000 == 0 |
|
270
|
7 |
0 |
unless $args{'no_fixup'} |
|
297
|
223 |
239 |
unless my $sv = $self->root($name) |
|
303
|
0 |
539875 |
unless my $sv = $heap->{$addr} |
|
307
|
100350 |
439525 |
if $sv->can("_fixup") |
|
310
|
0 |
539875 |
if $progress and $count % 20000 == 0 |
|
315
|
7 |
0 |
if ($self->{'format_minor'} >= 2) |
|
319
|
2 |
3 |
unless $ctx->type eq "SUB" |
|
336
|
4250 |
1471242 |
if $len == 0 |
|
337
|
0 |
1471242 |
unless defined $self->{'fh'}->read(my $buf, $len) |
|
344
|
0 |
1042624 |
unless defined $self->{'fh'}->read(my $buf, 1) |
|
351
|
0 |
14 |
unless defined $self->{'fh'}->read(my $buf, 4) |
|
358
|
0 |
0 |
unless defined $self->{'fh'}->read(my $buf, 8) |
|
365
|
0 |
932277 |
unless defined $self->{'fh'}->read(my $buf, $self->{'uint_len'}) |
|
372
|
0 |
560614 |
unless defined $self->{'fh'}->read(my $buf, $self->{'ptr_len'}) |
|
380
|
0 |
939154 |
unless defined $self->{'fh'}->read(my $buf, $self->{'ptr_len'} * $n) |
|
387
|
0 |
0 |
unless defined $self->{'fh'}->read(my $buf, $self->{'nv_len'}) |
|
395
|
201534 |
513478 |
if $len == $self->{'minus_1'} |
|
407
|
961986 |
158392 |
$nbytes ? : |
|
|
910892 |
209486 |
$nptrs ? : |
|
|
297671 |
822707 |
$nstrs ? : |
|
416
|
7 |
580493 |
unless $type |
|
418
|
0 |
580493 |
if ($type >= 241) { } |
|
|
0 |
580493 |
elsif ($type == 240) { } |
|
|
40618 |
539875 |
elsif ($type >= 128) { } |
|
442
|
0 |
40618 |
if ($self->{'format_minor'} == 0 and $type == 128) { } |
|
|
0 |
40618 |
elsif (not $sizes) { } |
|
461
|
40618 |
0 |
if (my $code = $self->can(sprintf('_read_svx_%02X', $type))) { } |
|
478
|
0 |
539875 |
if ($type == 127) { } |
|
534
|
1 |
0 |
if $av->isa("Devel::MAT::SV::ARRAY") |
|
543
|
1 |
0 |
if $hv->isa("Devel::MAT::SV::HASH") |
|
579
|
7 |
5 |
unless $type |
|
581
|
5 |
0 |
if ($self->{'format_minor'} >= 2) { } |
|
629
|
0 |
0 |
$self->{'big_endian'} ? : |
|
732
|
354 |
42 |
$a =~ /^\+(.*)/u ? : |
|
738
|
14 |
118 |
$a =~ /^\-(.*)/u ? : |
|
811
|
462 |
0 |
$self->{'roots'}{$name} ? : |
|
825
|
223 |
239 |
unless my $root_at = $self->root_at(@_) |
|
888
|
844631 |
12397921 |
unless $addr |
|
890
|
1597 |
12396324 |
if $addr == $self->{'undef_at'} |
|
891
|
1048 |
12395276 |
if $addr == $self->{'yes_at'} |
|
892
|
21 |
12395255 |
if $addr == $self->{'no_at'} |