| line |
true |
false |
branch |
|
15
|
0 |
0 |
$open eq '[' ? : |
|
17
|
0 |
0 |
unless $var_value |
|
22
|
0 |
0 |
if ($open eq '[') { } |
|
29
|
0 |
0 |
@retval == 1 ? : |
|
40
|
0 |
0 |
if ($string =~ /qw([([{])\s*(.*)$/) { } |
|
|
0 |
0 |
elsif ($string =~ /(\S+)\s*\.\.\s*(\S+)/) { } |
|
56
|
0 |
0 |
if ($string =~ /^(\$|\@|\%)/) { } |
|
|
0 |
0 |
elsif ($string =~ /('|")(\w+)\1/) { } |
|
69
|
0 |
0 |
if ($sigil eq '@' and ref $value eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($sigil eq '%' and ref $value eq 'HASH') { } |
|
82
|
0 |
0 |
if $level < 0 |
|
88
|
0 |
0 |
if (not $varname =~ /^[\$\@\%\*]/) { } |
|
|
0 |
0 |
elsif ($varname eq '@_' or $varname eq '@ARG') { } |
|
|
0 |
0 |
elsif ($varname =~ /\[|\}/) { } |
|
116
|
0 |
0 |
unless (exists $h->{$varname}) |
|
121
|
0 |
0 |
if (exists $h->{$varname}) { } |
|
|
0 |
0 |
elsif (my($sigil, $bare_varname) = $varname =~ /^([\$\@\%\*])(\w+)$/) { } |
|
|
0 |
0 |
elsif ($varname =~ /^([\$\@\%\*])\w+(::\w+)*(::)?$/) { } |
|
123
|
0 |
0 |
if (ref $h->{$varname} eq 'SCALAR' or ref $h->{$varname} eq 'REF' or ref $h->{$varname} eq 'VSTRING') { } |
|
150
|
0 |
0 |
if (@$list < 2) { } |
|
|
0 |
0 |
elsif ($sigil eq '%') { } |
|
168
|
0 |
0 |
if ($subroutine eq 'DB::DB') { } |
|
|
0 |
0 |
elsif ($subroutine eq '(eval)') { } |