| line |
true |
false |
branch |
|
29
|
2 |
10 |
@args && lc $args[0] eq ':all' ? : |
|
32
|
1 |
43 |
unless $sym =~ /^[\w\$]/ |
|
36
|
2 |
41 |
unless exists $vars{$sigil . $sym} |
|
49
|
38 |
56 |
unless ref $item and ref $item eq 'Pod::InteriorSequence' |
|
50
|
0 |
56 |
unless $item->cmd_name eq 'X' |
|
53
|
0 |
56 |
unless @ichildren == 1 |
|
54
|
0 |
56 |
unless $ichildren[0] =~ /^\s*([\$\@%])?(\w*)\s*=\s*(.*)$/ |
|
57
|
3 |
53 |
unless $sigil eq '$' |
|
59
|
1 |
52 |
unless $trailing eq '' |
|
61
|
1 |
51 |
unless ref $text eq '' |
|
64
|
13 |
38 |
if ($text =~ /^\s*(['"`])/) { } |
|
|
37 |
1 |
elsif ($text =~ /^\s*(\S+)/) { } |
|
76
|
30 |
7 |
if (looks_like_number $number) |
|
84
|
0 |
50 |
if (exists $$self{'vars'}{$var}) { } |
|
85
|
0 |
0 |
unless $$self{'vars'}{$var} eq $value |