| line |
true |
false |
branch |
|
124
|
3389 |
4 |
if $TOOLS_LOADED |
|
131
|
136 |
0 |
unless $tool_class->can("AUTOLOAD_TOOL") and $tool_class->AUTOLOAD_TOOL($self) |
|
168
|
0 |
0 |
if $class->can("CMD") |
|
169
|
0 |
0 |
unless my $name = &first(sub {
my $class = "Devel::MAT::Tool::$_";
$class->CMD eq $cmd if $class->can("CMD");
}
, $self->available_tools) |
|
270
|
0 |
3385 |
if ($sv->immortal) |
|
271
|
0 |
0 |
$sv->uv ? : |
|
|
0 |
0 |
$sv->type eq 'UNDEF' ? : |
|
281
|
1 |
9 |
if ($elide_sym and $name = $sv->symname and not $name =~ /^&.*::__ANON__$/u and $foundsv = eval {
do {
$self->find_symbol($sv->symname)
}
} and $foundsv->addr == $sv->addr) |
|
290
|
0 |
14 |
if ($elide_sym and $sv->type eq "GLOB" and $name = $sv->stashname) |
|
299
|
0 |
3370 |
$opts{'direct'} ? : |
|
|
14 |
3370 |
$opts{'strong'} ? : |
|
303
|
1 |
1 |
if (not @inrefs and $opts{'strong'}) |
|
306
|
1 |
1 |
if (not @inrefs and $opts{'direct'}) |
|
310
|
14 |
3370 |
if ($elide_rv) |
|
312
|
18 |
4 |
unless $_->sv and $_->sv->type eq "REF" and $_->name eq "the referrant" |
|
318
|
0 |
0 |
$opts{'direct'} ? : |
|
|
4 |
0 |
$opts{'strong'} ? : |
|
321
|
0 |
4 |
unless @rvrefs == 1 |
|
331
|
14 |
3370 |
if ($elide_pad) |
|
333
|
23 |
1 |
unless $_->sv and $_->sv->type eq "PAD" |
|
345
|
4 |
10140 |
unless (defined $ref->sv) |
|
350
|
1679 |
8461 |
if (defined $opts{'depth'} and not $opts{'depth'}) |
|
356
|
5078 |
3383 |
if ($graph->has_sv($ref->sv)) { } |
|
363
|
3369 |
14 |
defined $opts{'depth'} ? : |
|
391
|
0 |
30 |
unless my($sigil, $globname) = $name =~ /^([\$\@%&])(.*)$/u |
|
397
|
0 |
30 |
if ($sigil eq "&" and $stashvalue->type eq "REF") |
|
401
|
0 |
30 |
unless $stashvalue->type eq "GLOB" |
|
404
|
11 |
0 |
$sigil eq '&' ? : |
|
|
2 |
11 |
$sigil eq '%' ? : |
|
|
6 |
13 |
$sigil eq '@' ? : |
|
|
11 |
19 |
$sigil eq '$' ? : |
|
410
|
9 |
21 |
unless my $sv = $stashvalue->$slot |
|
438
|
14 |
36 |
if (defined $parent and length $parent) { } |
|
445
|
0 |
50 |
unless my $sv = $stash->value($shortname) |
|
455
|
0 |
20 |
unless my $sv = $self->find_stashvalue($name) |
|
456
|
0 |
20 |
unless $sv->type eq "GLOB" |
|
487
|
1 |
5 |
if ($opts{'headings'}) |
|
492
|
0 |
6 |
unless @$rows |
|
503
|
5 |
1 |
unless ref $align |
|
506
|
6 |
0 |
unless ref $sep |
|
515
|
16 |
1 |
$leftalign[$col] ? : |
|
517
|
6 |
0 |
if $col == $cols - 1 and $leftalign[$col] |
|
519
|
11 |
6 |
$col ? : |
|
525
|
0 |
9 |
unless @row |
|
554
|
0 |
4 |
if (my $blessed = $sv->blessed) |
|
560
|
2 |
2 |
if (my $rootname = $sv->rootname) |
|
581
|
2213205 |
4334913 |
if ($opts{'key'}) { } |
|
|
4334913 |
0 |
elsif ($opts{'index'}) { } |
|
|
0 |
0 |
elsif ($opts{'pv'}) { } |
|
583
|
0 |
2213205 |
if ($opts{'stash'} and $strval =~ /^([\x00-\x1f])([a-zA-Z0-9_]*)$/u) { } |
|
|
460398 |
1752807 |
elsif (not $strval =~ /^[a-zA-Z_][a-zA-Z0-9_]*$/u) { } |
|
597
|
0 |
0 |
if (my $maxlen = $opts{'maxlen'} // 64) |
|
598
|
0 |
0 |
if $truncated = length $val > $maxlen |
|
602
|
0 |
0 |
$truncated ? : |
|
624
|
0 |
0 |
if ($bytes < 1024) |
|
627
|
0 |
0 |
if ($bytes < 1048576) |
|
630
|
0 |
0 |
if ($bytes < "1073741824") |
|
633
|
0 |
0 |
if ($bytes < "1099511627776") |
|
651
|
0 |
0 |
if defined($num = $sv->nv // $sv->uv) |
|
654
|
0 |
0 |
if defined $sv->pv |
|
658
|
0 |
0 |
if @reprs > 1 |
|
660
|
0 |
0 |
if @reprs |
|
663
|
0 |
0 |
$sv->uv ? : |
|
667
|
0 |
0 |
if $sv->rv |
|
670
|
0 |
0 |
if $sv->blessed |
|
673
|
0 |
0 |
unless $n_elems |
|
676
|
0 |
0 |
if $n_elems > 1 |
|
681
|
0 |
0 |
if $sv->blessed |
|
684
|
0 |
0 |
unless $n_values |
|
688
|
0 |
0 |
if $n_values > 1 |
|
695
|
0 |
0 |
if ($(Syntax::Keyword::Match/topic) eq 'SCALAR') { } |
|
|
0 |
0 |
elsif ($(Syntax::Keyword::Match/topic) eq 'BOOL') { } |
|
|
0 |
0 |
elsif ($(Syntax::Keyword::Match/topic) eq 'REF') { } |
|
|
0 |
0 |
elsif ($(Syntax::Keyword::Match/topic) eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($(Syntax::Keyword::Match/topic) eq 'HASH') { } |
|
|
0 |
0 |
elsif ($(Syntax::Keyword::Match/topic) eq 'GLOB') { } |
|
|
0 |
0 |
elsif ($(Syntax::Keyword::Match/topic) eq 'STASH') { } |