| 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)
|