| line |
true |
false |
branch |
|
16
|
2 |
13 |
if (@_ == 1) |
|
17
|
0 |
2 |
unless (local $value = $_[0]) =~ s/^ \s* (\(? [^)=]+ \)?) \s* = \s* (?=\S)//x |
|
22
|
0 |
2 |
if (my $perl = &$to_source()) =~ /$error/ |
|
26
|
2 |
11 |
if ($_[0] =~ /^\s* \( ([^)=]+) \) \s*$/x) |
|
28
|
2 |
0 |
$names =~ /,/ ? : |
|
31
|
3 |
3 |
if (ref $_[0] eq 'ARRAY' and @_ > 2 || ref $_[1] ne 'ARRAY') |
|
34
|
6 |
4 |
if (@_ == 2 and ref $_[0] eq 'ARRAY' and ref $_[1] eq 'ARRAY') |
|
40
|
0 |
13 |
if @_ % 2 |
|
49
|
0 |
10 |
@_ ? : |
|
56
|
3 |
0 |
ref $value eq 'ARRAY' ? : |
|
57
|
3 |
0 |
ref $value eq 'HASH' ? : |
|
67
|
6 |
23 |
$name =~ /^([\@\%])/ ? : |
|
72
|
0 |
5 |
unless $name =~ /^\$/ |
|
73
|
0 |
5 |
if ref $value |
|
92
|
0 |
3 |
@_ ? : |
|
93
|
0 |
15 |
unless $can{lc $_} |
|
95
|
0 |
15 |
if (/[A-Z]/) { } |
|
100
|
0 |
15 |
if $done{$_}++ |
|
108
|
0 |
1 |
@_ ? : |