| line |
true |
false |
branch |
|
85
|
17 |
22 |
if $check =~ /^\s*#/ or $check =~ /^\s*$/ |
|
94
|
22 |
0 |
if ($check =~ /^\s*"([^"]+)"\s+(.*?)\s*$/ or $check =~ /^\s*'([^']+)'\s+(.*?)\s*$/ or $check =~ /^\s*(\S+?)\s+(\S.*?)\s*$/) { } |
|
106
|
6 |
16 |
if ($test =~ s/ ^ (!?-) (\w{2,}) \b /$1Z/x) { } |
|
124
|
4 |
24 |
if $cwd and not 'File::Spec'->file_name_is_absolute($file) |
|
134
|
2 |
26 |
if ($this =~ /^cd\b/) { } |
|
142
|
15 |
11 |
unless $this =~ /\|\|/ |
|
157
|
6 |
0 |
if ($orig_sigwarn) { } |
|
169
|
3 |
25 |
if (my $err = $@) |
|
171
|
0 |
3 |
if ($starting_dir ne cwd()) |
|
172
|
0 |
0 |
unless chdir $starting_dir |
|
179
|
6 |
19 |
if $Warnings > $oldwarnings |
|
184
|
0 |
5 |
if ($starting_dir ne cwd()) |
|
185
|
0 |
0 |
unless chdir $starting_dir |
|
221
|
6 |
0 |
if ($test =~ / ^ (!?) -(\w) \s* $ /x) { } |
|
226
|
0 |
6 |
if ($neg eq '!') |
|
227
|
0 |
0 |
unless $ferror =~ s/ is not / should not be / or $ferror =~ s/ does not / should not / |
|
236
|
1 |
5 |
if $disposition eq 'die' |