| line |
true |
false |
branch |
|
142
|
15 |
9 |
'HASH' eq ref $_[-1] ? : |
|
147
|
2 |
22 |
if ($option{'name'}) |
|
149
|
0 |
2 |
$subname =~ s/(.*)::// ? : |
|
153
|
13 |
11 |
unless delete $option{'capture'} |
|
158
|
51 |
37 |
'ARRAY' eq ref $thing ? : |
|
162
|
38 |
50 |
if ('CODE' eq ref $arr[0]) { } |
|
|
6 |
44 |
elsif (&blessed($arr[0])) { } |
|
|
18 |
26 |
elsif (not ref $arr[0]) { } |
|
|
26 |
0 |
elsif ('SCALAR' eq ref $arr[0]) { } |
|
196
|
3 |
85 |
if (defined $opt{'store'}) |
|
198
|
0 |
3 |
unless 'ARRAY' eq ref $option{'lexicals'} |
|
200
|
3 |
0 |
if ($opt{'store'} =~ /^[\$\@%]/) { } |
|
212
|
7 |
17 |
unless 'ARRAY' eq ref $option{'lexicals'} |
|
213
|
12 |
12 |
if (@{$option{'lexicals'};}) |
|
239
|
64 |
57 |
if (exists $option->{'args'}) { } |
|
241
|
60 |
4 |
if (defined $option->{'args'}) { } |
|
243
|
10 |
50 |
if (my $ref = ref $option->{'args'}) |
|
249
|
0 |
0 |
'HASH' eq $ref ? : |
|
|
10 |
0 |
'ARRAY' eq $ref ? : |
|
363
|
0 |
41 |
unless 'CODE' eq ref $coderef |
|
373
|
5 |
36 |
if ($qtd) { } |
|
485
|
0 |
9 |
unless ref $method eq '' |
|
488
|
0 |
9 |
unless $object->can($method) |
|
502
|
8 |
1 |
$option{'provide_args'} ? : |
|
606
|
13 |
58 |
unless delete $option{'capture'} |
|
617
|
38 |
33 |
unless defined $option{'local'} |
|
625
|
12 |
59 |
if (my $variable = $option{'store'}) |
|
629
|
9 |
3 |
if ($variable =~ /^[\$\@%]/) { } |