| line |
true |
false |
branch |
|
28
|
2 |
3 |
$bool ? :
|
|
35
|
464 |
8 |
unless defined $config->{$field}
|
|
43
|
9 |
0 |
unless defined $elipsis
|
|
45
|
1 |
8 |
unless $strlen
|
|
46
|
0 |
8 |
unless $str or $str =~ /\d+/
|
|
47
|
1 |
7 |
if ($max > 0 and $strlen > $max and -1 == index($str, "\n")) { }
|
|
63
|
5 |
15 |
if 0 == index($try_name, $name)
|
|
65
|
2 |
3 |
scalar @candidates == 1 ? :
|
|
85
|
3 |
7 |
if ($text =~ /^\s*(?:if|elsif|unless)\s*\(/) { }
|
|
|
2 |
5 |
elsif ($text =~ /^\s*(?:until|while)\s*\(/) { }
|
|
|
2 |
3 |
elsif ($text =~ /^\s*return\s+/) { }
|
|
|
1 |
2 |
elsif ($text =~ /^\s*(?:my|our|local)\s*(.+(\((?:.+)\s*\)\s*=.*);.*$)/) { }
|
|
|
1 |
1 |
elsif ($text =~ /^\s*(?:my|our|local)\s+(?:.+)\s*=\s*(.+);.*$/) { }
|
|
|
0 |
1 |
elsif ($text =~ /^\s*\$[A-Za-z_][A-Za-z0-9_\[\]]*\s*=[^=>]/) { }
|
|
117
|
1 |
1 |
unless -f $filename
|
|
118
|
0 |
1 |
unless -r $filename
|
|
127
|
6 |
2 |
$have_e_opt ? :
|
|
131
|
3 |
5 |
if 0 == $rc
|
|
142
|
14 |
4 |
index('%@$;>', $suffix) != -1 ? :
|
|
148
|
0 |
0 |
$cmd =~ /^\s*([%\$\@>;])/ ? :
|
|
155
|
1 |
1 |
if (defined $ENV{'PAGER'}) { }
|
|
|
1 |
0 |
elsif (eval {
do {
require Config
}
} and defined $Config::Config{'pager'}) { }
|