| line |
true |
false |
branch |
|
26
|
0 |
0 |
if (my($m, @v) = _parse_module_spec($spec)) |
|
28
|
0 |
0 |
if @v |
|
35
|
39 |
0 |
if ($_[0] =~ /\A ($MODULE_RE) (?: ~ ($VERSION_RE) )? \z/ux) { } |
|
|
0 |
0 |
elsif (ref $_[0] eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $_[0] eq 'HASH') { } |
|
37
|
19 |
20 |
unless $v |
|
43
|
0 |
0 |
unless @{$_[0];} and @{$_[0];} <= 2 |
|
45
|
0 |
0 |
unless my($m1, @v1) = _parse_module_spec($m) |
|
47
|
0 |
0 |
if @{$_[0];} == 1 |
|
53
|
0 |
0 |
unless keys %{$_[0];} == 1 |
|
55
|
0 |
0 |
unless my($m1) = _parse_module_spec($m) |
|
62
|
0 |
20 |
$_[0] eq '0' ? : |
|
65
|
0 |
0 |
unless (defined $_[0] and $_[0] =~ /\A $VERSION_RE \z/ux) |
|
77
|
4 |
13 |
@_ > 1 ? : |
|
79
|
0 |
17 |
unless my($m, @v) = _parse_module_spec($_[-1]) |
|
86
|
0 |
0 |
@_ > 1 ? : |
|
88
|
0 |
0 |
unless my($m, @v) = _parse_module_spec($_[-1]) |
|
96
|
5 |
17 |
@_ > 1 ? : |
|
98
|
0 |
22 |
unless my($m, @v) = _parse_module_spec($_[-1]) |
|
104
|
0 |
0 |
$_[0] =~ /\A-/u ? : |
|
110
|
0 |
0 |
unless my $sub = $SUB_FOR->{$op} |
|
111
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'HASH') |