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'} |