| line |
true |
false |
branch |
|
12
|
10 |
9 |
unless @args |
|
41
|
3 |
0 |
ref $value eq 'CODE' ? : |
|
96
|
0 |
47 |
if ref $item |
|
100
|
16 |
31 |
if ($item =~ /^(!?)[:-](.*)$/) |
|
102
|
2 |
14 |
if ($self->package->export_meta->arguments_has($param)) { } |
|
108
|
1 |
13 |
ref $args[0] ? : |
|
112
|
2 |
43 |
if ($item =~ /^!(.*)$/) { } |
|
|
4 |
39 |
elsif (my $type = ref $args[0]) { } |
|
118
|
1 |
3 |
if ($type eq 'ARRAY') { } |
|
|
3 |
0 |
elsif ($type eq 'HASH') { } |
|
136
|
36 |
72 |
$in =~ /^[\&\$\%\@]/ ? : |
|
142
|
3 |
17 |
if ($item =~ /^[:-](.*)$/) |
|
158
|
0 |
100 |
if $item =~ /^&?aaa_/ |
|
160
|
1 |
99 |
if defined $$conf{'-args'} |
|
164
|
17 |
3 |
if $key =~ /^[:-]/ |
|
168
|
14 |
86 |
if ($item =~ /^[:-](.*)$/) |
|
170
|
0 |
14 |
if $self->package->export_meta->options_has($name) |
|
173
|
0 |
52 |
if ($negate) { } |
|
187
|
79 |
7 |
unless ($existing) |