| line |
true |
false |
branch |
|
36
|
4 |
9 |
if (@ARGV and $ARGV[0] =~ /^[Vv](\d+)$/) |
|
51
|
0 |
13 |
if seed_hash() |
|
52
|
0 |
13 |
if find_alt_script() |
|
53
|
0 |
13 |
if parse_new_dev_libs() |
|
55
|
0 |
13 |
if $exec |
|
60
|
4 |
9 |
if (defined $cli_version) { } |
|
78
|
13 |
0 |
if (defined $version) { } |
|
79
|
13 |
0 |
if $version == 0 |
|
85
|
0 |
13 |
unless eval {
do {
require $file;
1
}
} |
|
92
|
0 |
0 |
if ref $inc |
|
94
|
0 |
0 |
unless -d $dir |
|
95
|
0 |
0 |
unless opendir my $dh, $dir |
|
97
|
0 |
0 |
if $entry =~ /^V(\d+)\.pm$/ |
|
110
|
0 |
0 |
if (eval {
do {
require $file;
1
}
}) |
|
118
|
0 |
0 |
unless $MOD |
|
124
|
0 |
13 |
unless $MOD |
|
145
|
13 |
0 |
unless -f $script |
|
146
|
0 |
0 |
unless -x $script |
|
150
|
0 |
0 |
if $script eq clean_path($SCRIPT) |
|
160
|
1 |
31 |
if $arg eq "::" |
|
161
|
1 |
30 |
if $arg eq "--" |
|
163
|
30 |
0 |
unless $arg =~ /^(?:-D|--dev-libs?)(?:=(.+))?$/ |
|
166
|
0 |
0 |
unless ($arg) |
|
172
|
0 |
0 |
if ($path =~ /\*/) { } |
|
181
|
16 |
0 |
unless @add |
|
185
|
0 |
0 |
unless @add |
|
192
|
13 |
2 |
unless $ENV{'T2_HARNESS_INCLUDES'} |
|
197
|
14 |
1 |
if $ENV{'PERL_HASH_SEED'} |
|
211
|
2 |
20 |
unless $path |
|
214
|
19 |
1 |
if $absolute |
|
230
|
5 |
47 |
if (-l $plain_path and -f $plain_path) |
|
232
|
5 |
0 |
if (("File::Spec"->splitpath($target))[2] =~ /$versioned_pattern/) |
|
238
|
47 |
0 |
if (opendir my $dh, $abs) |
|
240
|
14 |
365 |
if ($entry =~ /$versioned_pattern/) |
|
251
|
2 |
31 |
if (-f $plain_path) |
|
263
|
5 |
10 |
if -e $path |
|
269
|
0 |
32 |
unless $check |
|
270
|
10 |
22 |
if $seen{$check}++ |
|
271
|
0 |
22 |
if -e $check |
|
279
|
2 |
16 |
unless $mod |