line |
true |
false |
branch |
158
|
0 |
9 |
if ($0 eq '-e' or $0 eq '-') |
159
|
0 |
0 |
if $meth == $keyBin or $meth == $keyRealBin |
160
|
0 |
0 |
if $meth == $keyScript or $meth == $keyRealScript |
162
|
0 |
9 |
if ($^O eq 'VMS') |
164
|
0 |
0 |
if $meth == $keyBin or $meth == $keyRealBin |
165
|
0 |
0 |
if $meth == $keyScript or $meth == $keyRealScript |
172
|
0 |
9 |
unless ($script =~ m[/] || $dosish && $script =~ /\\/ and -f $script) |
179
|
0 |
0 |
if (-r $scr and !$dosish || -x _) |
183
|
0 |
0 |
if (-f $0) |
193
|
0 |
0 |
unless -T $script |
200
|
0 |
9 |
unless -f $script |
204
|
9 |
0 |
unless 'File::Spec'->file_name_is_absolute($script) |
207
|
6 |
3 |
if ($meth == $keyBin or $meth == $keyScript) { } |
216
|
3 |
0 |
unless defined $linktext |
218
|
0 |
0 |
'File::Spec'->file_name_is_absolute($linktext) ? : |
224
|
6 |
3 |
if $Bin |
225
|
3 |
6 |
if $RealBin |
227
|
5 |
4 |
if $meth == $keyBin |
228
|
1 |
3 |
if $meth == $keyScript |
229
|
2 |
1 |
if $meth == $keyRealBin |
230
|
1 |
0 |
if $meth == $keyRealScript |
260
|
0 |
3 |
unless $depth =~ /\d+/ |
261
|
3 |
0 |
if $Bin =~ m[(.*?)((/[^/]+?){$depth})/] |