| line |
true |
false |
branch |
|
41
|
1 |
11 |
if (@args == 0) { } |
|
|
1 |
10 |
elsif ($class->globbrace(@args) == 0) { } |
|
49
|
0 |
10 |
if ($args[0] eq "-0") |
|
61
|
9 |
1 |
if (@matches) { } |
|
|
0 |
1 |
elsif (() = keys %Unknown_users) { } |
|
73
|
0 |
1 |
if ($pattern =~ /(?:\A|\s)~([\w-]+?)\b/) { } |
|
|
1 |
0 |
elsif ($pattern =~ /$wildcards/) { } |
|
74
|
0 |
0 |
getpwnam $1 ? : |
|
81
|
1 |
0 |
unless defined $code |
|
94
|
0 |
0 |
if defined $message |
|
95
|
0 |
0 |
defined $code ? : |
|
100
|
0 |
0 |
unless $_[0] =~ /$wildcards/ |
|
105
|
0 |
0 |
unless defined $dir |
|
107
|
0 |
0 |
unless / \A ~ (\w+)? /x |
|
110
|
0 |
0 |
if ($user and not $Unknown_users{$user}) { } |
|
112
|
0 |
0 |
if ($net_user =~ /could not be found|The syntax of this command/) |
|
132
|
6 |
5 |
if $start == -1 |
|
136
|
1 |
23 |
if ('[' eq substr($s, $i, 1)) { } |
|
|
5 |
18 |
elsif ('{' eq substr($s, $i, 1)) { } |
|
|
5 |
13 |
elsif ('}' eq substr($s, $i, 1)) { } |
|
138
|
1 |
1 |
if "]" eq substr($s, $i, 1) |
|
139
|
0 |
1 |
if $i == length $s |
|
146
|
1 |
4 |
if $counter == 0 |
|
151
|
1 |
4 |
if $counter != 0 |
|
165
|
0 |
0 |
if (exists $ENV{'HOME'} and defined $ENV{'HOME'} and length $ENV{'HOME'}) |
|
170
|
0 |
0 |
if (exists $ENV{'USERPROFILE'} and $ENV{'USERPROFILE'}) |
|
175
|
0 |
0 |
if (exists $ENV{'HOMEDRIVE'} and exists $ENV{'HOMEPATH'} and $ENV{'HOMEDRIVE'} and $ENV{'HOMEPATH'}) |
|
186
|
0 |
0 |
unless defined $separator |