| line |
true |
false |
branch |
|
21
|
0 |
15 |
if ($] < "5.006" and not defined &warnings::import) |
|
23
|
0 |
15 |
if $INC[-1] eq "." |
|
47
|
4725 |
0 |
defined $ENV{$k} ? : |
|
55
|
1347 |
0 |
defined $v ? : |
|
57
|
1 |
0 |
exists $BATsh::Env::STORE{_key($n)} ? : |
|
65
|
0 |
8 |
unless defined $opts |
|
68
|
4 |
4 |
if ($opts =~ /ENABLEDELAYEDEXPANSION/i) { } |
|
|
0 |
4 |
elsif ($opts =~ /DISABLEDELAYEDEXPANSION/i) { } |
|
74
|
0 |
8 |
unless (@BATsh::Env::SETLOCAL_STACK) |
|
88
|
0 |
364 |
unless defined $str |
|
98
|
61 |
0 |
exists $BATsh::Env::STORE{$k} ? : |
|
113
|
19 |
345 |
if ($BATsh::Env::DELAYED_EXPANSION) |
|
115
|
5 |
0 |
exists $BATsh::Env::STORE{$k} ? : |
|
150
|
1 |
78 |
if ($upper eq "RANDOM") |
|
153
|
1 |
77 |
if ($upper eq "DATE") |
|
157
|
1 |
76 |
if ($upper eq "TIME") |
|
161
|
1 |
75 |
if ($upper eq "CD") |
|
162
|
1 |
0 |
defined &Cwd::cwd ? : |
|
164
|
0 |
75 |
if ($upper eq "CMDCMDLINE") |
|
167
|
1 |
74 |
if ($upper eq "ERRORLEVEL") |
|
170
|
0 |
0 |
exists $BATsh::Env::STORE{'ERRORLEVEL'} ? : |
|
|
1 |
0 |
defined &BATsh::CMD::_get_errorlevel ? : |
|
172
|
74 |
0 |
exists $BATsh::Env::STORE{$upper} ? : |
|
191
|
14 |
0 |
exists $BATsh::Env::STORE{$k} ? : |
|
195
|
8 |
6 |
if ($modifier =~ /\A~(-?\d+)(?:,(-?\d+))?\z/) |
|
198
|
1 |
7 |
$n < 0 ? : |
|
199
|
0 |
8 |
if $start < 0 |
|
200
|
1 |
7 |
if $start >= $len |
|
201
|
2 |
5 |
unless (defined $m) |
|
205
|
1 |
4 |
if ($m < 0) { } |
|
211
|
0 |
5 |
if $end > $len |
|
212
|
1 |
4 |
if $end <= $start |
|
217
|
6 |
0 |
if ($modifier =~ /\A(\*?)([^=]*)=(.*)\z/) |
|
219
|
1 |
5 |
if ($star eq '*') { } |
|
221
|
1 |
0 |
if ($pos >= 0) |
|
230
|
4 |
1 |
if ($pos >= 0) |
|
249
|
15 |
1 |
exists $BATsh::Env::STORE{$key} ? : |
|
256
|
3 |
13 |
unless $mods =~ /[fdpnx]/ |
|
264
|
4 |
9 |
if ($path =~ s/\A([A-Za-z]:)//) |
|
267
|
4 |
9 |
if ($mods =~ /[fdp]/) |
|
268
|
2 |
2 |
unless ($path =~ m[\A/] or $drv ne "") |
|
270
|
2 |
0 |
defined &Cwd::cwd ? : |
|
276
|
0 |
4 |
unless $path =~ m[\A/] |
|
280
|
4 |
17 |
if $p eq "" or $p eq "." |
|
281
|
0 |
0 |
if @segs |
|
|
0 |
17 |
if ($p eq '..') { } |
|
285
|
0 |
4 |
if $path eq "/" |
|
290
|
9 |
4 |
if ($path =~ m[\A(.*/)([^/]*)\z]) { } |
|
299
|
13 |
0 |
if ($file =~ /\A(.+)(\.[^.]+)\z/) { } |
|
307
|
1 |
12 |
if ($mods =~ /f/) |
|
314
|
2 |
10 |
if $mods =~ /d/ |
|
315
|
3 |
9 |
if $mods =~ /p/ |
|
316
|
6 |
6 |
if $mods =~ /n/ |
|
317
|
5 |
7 |
if $mods =~ /x/ |
|
326
|
0 |
0 |
unless defined $str |
|
328
|
0 |
0 |
defined $BATsh::Env::STORE{uc $k} ? : |
|
|
0 |
0 |
if (defined $BATsh::Env::STORE{$k}) { } |
|
331
|
0 |
0 |
defined $BATsh::Env::STORE{uc $k} ? : |
|
|
0 |
0 |
if (defined $BATsh::Env::STORE{$k}) { } |