| line |
true |
false |
branch |
|
26
|
0 |
0 |
if (my($m, @v) = _parse_module_spec($spec)) |
|
28
|
0 |
0 |
if @v |
|
35
|
15 |
48 |
if ($_[0] =~ /\A $MODULE_RE \z/ux) { } |
|
|
25 |
23 |
elsif (ref $_[0] eq 'ARRAY') { } |
|
|
23 |
0 |
elsif (ref $_[0] eq 'HASH') { } |
|
41
|
0 |
25 |
unless @{$_[0];} and @{$_[0];} <= 2 |
|
43
|
0 |
25 |
unless $m =~ /\A $MODULE_RE \z/ux |
|
45
|
0 |
25 |
if @{$_[0];} == 1 |
|
51
|
0 |
23 |
unless keys %{$_[0];} == 1 |
|
53
|
0 |
23 |
unless $m =~ /\A $MODULE_RE \z/ux |
|
60
|
8 |
40 |
$_[0] eq '0' ? : |
|
63
|
0 |
48 |
unless (defined $_[0] and $_[0] =~ /\A $VERSION_RE \z/ux) |
|
75
|
7 |
21 |
@_ > 1 ? : |
|
77
|
0 |
28 |
unless my($m, @v) = _parse_module_spec($_[-1]) |
|
79
|
28 |
0 |
unless $opts->{'try'} |
|
85
|
0 |
0 |
@_ > 1 ? : |
|
87
|
0 |
0 |
unless my($m, @v) = _parse_module_spec($_[-1]) |
|
95
|
9 |
26 |
@_ > 1 ? : |
|
97
|
0 |
35 |
unless my($m, @v) = _parse_module_spec($_[-1]) |
|
103
|
0 |
0 |
$_[0] =~ /\A-/u ? : |
|
109
|
0 |
0 |
unless my $sub = $SUB_FOR->{$op} |
|
110
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'HASH') |