| line |
true |
false |
branch |
|
21
|
0 |
7 |
if ($] < "5.006" and not defined &warnings::import) |
|
23
|
0 |
7 |
if $INC[-1] eq "." |
|
46
|
2200 |
0 |
defined $ENV{$k} ? : |
|
54
|
472 |
0 |
defined $v ? : |
|
56
|
1 |
0 |
exists $BATsh::Env::STORE{_key($n)} ? : |
|
64
|
0 |
8 |
unless defined $opts |
|
67
|
4 |
4 |
if ($opts =~ /ENABLEDELAYEDEXPANSION/i) { } |
|
|
0 |
4 |
elsif ($opts =~ /DISABLEDELAYEDEXPANSION/i) { } |
|
73
|
0 |
8 |
unless (@BATsh::Env::SETLOCAL_STACK) |
|
87
|
0 |
149 |
unless defined $str |
|
97
|
0 |
0 |
exists $BATsh::Env::STORE{$k} ? : |
|
102
|
28 |
0 |
exists $BATsh::Env::STORE{$k} ? : |
|
109
|
19 |
130 |
if ($BATsh::Env::DELAYED_EXPANSION) |
|
111
|
5 |
0 |
exists $BATsh::Env::STORE{$k} ? : |
|
137
|
11 |
1 |
exists $BATsh::Env::STORE{$key} ? : |
|
144
|
3 |
9 |
unless $mods =~ /[fdpnx]/ |
|
152
|
0 |
9 |
if ($path =~ s/\A([A-Za-z]:)//) |
|
155
|
3 |
6 |
if ($mods =~ /[fdp]/) |
|
156
|
2 |
1 |
unless ($path =~ m[\A/] or $drv ne "") |
|
158
|
2 |
0 |
defined &Cwd::cwd ? : |
|
164
|
0 |
3 |
unless $path =~ m[\A/] |
|
168
|
3 |
14 |
if $p eq "" or $p eq "." |
|
169
|
0 |
0 |
if @segs |
|
|
0 |
14 |
if ($p eq '..') { } |
|
173
|
0 |
3 |
if $path eq "/" |
|
178
|
5 |
4 |
if ($path =~ m[\A(.*/)([^/]*)\z]) { } |
|
187
|
9 |
0 |
if ($file =~ /\A(.+)(\.[^.]+)\z/) { } |
|
195
|
1 |
8 |
if ($mods =~ /f/) |
|
202
|
1 |
7 |
if $mods =~ /d/ |
|
203
|
2 |
6 |
if $mods =~ /p/ |
|
204
|
4 |
4 |
if $mods =~ /n/ |
|
205
|
3 |
5 |
if $mods =~ /x/ |
|
214
|
0 |
0 |
unless defined $str |
|
216
|
0 |
0 |
defined $BATsh::Env::STORE{uc $k} ? : |
|
|
0 |
0 |
if (defined $BATsh::Env::STORE{$k}) { } |
|
219
|
0 |
0 |
defined $BATsh::Env::STORE{uc $k} ? : |
|
|
0 |
0 |
if (defined $BATsh::Env::STORE{$k}) { } |