| line |
true |
false |
branch |
|
36
|
4 |
8 |
if (@ARGV and $ARGV[0] =~ /^[Vv](\d+)$/) |
|
53
|
0 |
12 |
if find_alt_script() |
|
65
|
0 |
12 |
if parse_rc_dev_libs($config, $user_config) |
|
66
|
0 |
12 |
if parse_new_dev_libs() |
|
68
|
0 |
12 |
if $exec |
|
70
|
12 |
0 |
defined $version ? : |
|
90
|
12 |
0 |
unless -f $script |
|
91
|
0 |
0 |
unless -x $script |
|
95
|
0 |
0 |
if $script eq clean_path($SCRIPT) |
|
107
|
20 |
13 |
if defined $_ |
|
108
|
3 |
17 |
unless @files |
|
112
|
1 |
17 |
unless -f $file |
|
126
|
2 |
53 |
if $arg eq "::" |
|
127
|
3 |
50 |
if $arg eq "--" |
|
129
|
31 |
19 |
unless $arg =~ /^(?:-D|--dev-libs?)(?:=(.+))?$/ |
|
132
|
4 |
15 |
unless (defined $val and length $val) |
|
138
|
1 |
18 |
if ($path =~ /\*/) { } |
|
149
|
30 |
6 |
unless @add |
|
153
|
1 |
5 |
unless @add |
|
167
|
0 |
22 |
unless open my $fh, "<", $file |
|
173
|
4 |
17 |
unless length $line |
|
174
|
4 |
13 |
if $line =~ /^\[/ |
|
176
|
1 |
12 |
if ($line =~ /^(\S+)\s+(.+)$/) { } |
|
196
|
7 |
11 |
if (defined $cli_version) |
|
228
|
13 |
1 |
if $version == 0 |
|
233
|
1 |
13 |
unless eval {
do {
require $file;
1
}
} |
|
243
|
0 |
4 |
if ref $inc |
|
245
|
1 |
3 |
unless -d $dir |
|
246
|
0 |
3 |
unless opendir my $dh, $dir |
|
248
|
8 |
6 |
if $entry =~ /^V(\d+)\.pm$/ |
|
263
|
1 |
2 |
unless @vers |
|
270
|
2 |
1 |
if eval {
do {
require $file;
1
}
} |
|
281
|
13 |
1 |
unless $ENV{'T2_HARNESS_INCLUDES'} |
|
291
|
15 |
6 |
unless -d $local_path |
|
292
|
0 |
6 |
unless opendir my $dh, $local_path |
|
296
|
13 |
9 |
unless $file =~ /^V(\d+)\.pm$/ |
|
298
|
7 |
2 |
if not defined $vers or $n > $vers |
|
312
|
13 |
2 |
unless defined $local_vers |
|
315
|
1 |
1 |
if grep {clean_path($_) eq $lib_path;} @INC |
|
326
|
2 |
68 |
unless $path |
|
329
|
67 |
1 |
if $absolute |
|
345
|
5 |
55 |
if (-l $plain_path and -f $plain_path) |
|
347
|
5 |
0 |
if (("File::Spec"->splitpath($target))[2] =~ /$versioned_pattern/) |
|
353
|
55 |
0 |
if (opendir my $dh, $abs) |
|
356
|
478 |
20 |
unless $entry =~ /$versioned_pattern/ |
|
358
|
19 |
1 |
if (not defined $best_ver or $v > $best_ver) |
|
364
|
17 |
38 |
if (defined $best_ver) |
|
372
|
4 |
34 |
if (-f $plain_path) |
|
384
|
9 |
24 |
if -e $path |
|
390
|
0 |
74 |
unless $check |
|
391
|
24 |
50 |
if $seen{$check}++ |
|
392
|
0 |
50 |
if -e $check |
|
400
|
2 |
20 |
unless $mod |