| line |
true |
false |
branch |
|
12
|
14 |
0 |
eval {
do {
require 'version.pm'
}
} ? : |
|
21
|
0 |
26 |
if @_ == 2 and $_[1] eq 'install' |
|
24
|
0 |
26 |
($_[0] || '') =~ /\A!?-?\d/ ? : |
|
25
|
14 |
12 |
unless defined $module and $module |
|
26
|
3 |
9 |
if (ref $module eq 'HASH') |
|
32
|
1 |
11 |
if (not @_) { } |
|
|
0 |
11 |
elsif (ref $_[0] eq 'ARRAY') { } |
|
46
|
1 |
11 |
unless $s->initialize($args, $module, $set) |
|
47
|
0 |
11 |
if ($module ne 'perl itself' and $s->search) |
|
51
|
0 |
0 |
if $@ |
|
58
|
0 |
11 |
if ($module eq 'perl itself') { } |
|
|
10 |
1 |
elsif (not defined $INC{$s->canon_path}) { } |
|
64
|
0 |
0 |
unless $s->check_version($perl_version) |
|
74
|
10 |
1 |
unless ($loaded) |
|
78
|
1 |
0 |
unless my $import = $s->export |
|
97
|
3 |
9 |
if (defined $$args{'versionlib'}) |
|
99
|
1 |
2 |
unless ($module) |
|
104
|
1 |
11 |
unless $module |
|
120
|
0 |
13 |
if ($fix_key) |
|
131
|
3 |
0 |
unless $s->found_path |
|
132
|
3 |
0 |
unless defined $s->distribution_modules->{$module_path} |
|
145
|
0 |
0 |
if (-f $path) |
|
146
|
0 |
0 |
unless open my $fh, $path |
|
160
|
2 |
12 |
if (defined $INC{$s->canon_path}) |
|
165
|
2 |
10 |
if ($s->fancy) { } |
|
178
|
0 |
20 |
if (-f $path) |
|
205
|
3 |
56 |
unless not ref $_ |
|
216
|
0 |
0 |
defined $$s{'arguments'} ? : |
|
|
11 |
0 |
if (@_) { } |
|
|
43 |
0 |
defined $$s{'canon_path'} ? : |
|
|
13 |
43 |
if (@_) { } |
|
|
23 |
0 |
defined $$s{'condition_spec'} ? : |
|
|
13 |
23 |
if (@_) { } |
|
|
19 |
0 |
defined $$s{'condition_str'} ? : |
|
|
13 |
19 |
if (@_) { } |
|
|
0 |
2 |
defined $$s{'distribution_version'} ? : |
|
|
0 |
2 |
if (@_) { } |
|
|
12 |
0 |
defined $$s{'fancy'} ? : |
|
|
16 |
12 |
if (@_) { } |
|
|
3 |
0 |
defined $$s{'found_path'} ? : |
|
|
72 |
3 |
if (@_) { } |
|
|
20 |
0 |
defined $$s{'mod_path'} ? : |
|
|
13 |
20 |
if (@_) { } |
|
|
1 |
0 |
defined $$s{'no_export'} ? : |
|
|
11 |
1 |
if (@_) { } |
|
|
12 |
0 |
defined $$s{'versionarch'} ? : |
|
|
18 |
12 |
if (@_) { } |
|
234
|
13 |
41 |
if (@_) { } |
|
248
|
13 |
0 |
if (@_) { } |
|
261
|
40 |
1 |
if (ref $s) { } |
|
|
1 |
0 |
elsif (@_) { } |
|
262
|
18 |
22 |
if (@_) { } |
|
283
|
3 |
0 |
unless $path |
|
285
|
0 |
0 |
unless $path =~ s/\.pm$/.yaml/ |
|
287
|
0 |
0 |
unless open META, $path |
|
298
|
0 |
1 |
if $s->no_export |
|
306
|
0 |
8 |
if ($path =~ s/\.pm$/.yaml/ and -f $path) |
|
307
|
0 |
0 |
unless open META, $path |
|
311
|
0 |
0 |
if ($meta =~ /^install_version\s*:\s*(\S+)$/m) |
|
321
|
13 |
0 |
@condition ? : |
|
324
|
14 |
0 |
if (/^(!)?(\d[\d\.]*)?(?:(-)(\d[\d\.]*)?)?$/) { } |
|
325
|
3 |
11 |
if defined $1 or defined $3 |
|
328
|
0 |
12 |
defined $3 ? : |
|
|
2 |
12 |
defined $4 ? : |
|
331
|
1 |
13 |
defined $1 ? : |
|
332
|
0 |
14 |
if $lower > $upper |
|
350
|
8 |
10 |
unless $dir =~ /^\d[\d\.]*$/ |
|
351
|
0 |
10 |
if $dir eq $only::Config{'version'} |
|
362
|
0 |
13 |
unless @specs |
|
366
|
0 |
17 |
if $match and not $negate |
|
367
|
1 |
16 |
if ($version >= $lower and $version <= $upper) |
|
368
|
0 |
1 |
if $negate |
|
379
|
6 |
4 |
if (defined $INC{$s->canon_path}) |
|
400
|
0 |
0 |
if (@ARGV == 1 and $ARGV[0] =~ /^[\d\.]+$/) { } |
|
405
|
0 |
0 |
unless (/^(\w+)=(\S+)$/) |