| line |
true |
false |
branch |
|
12
|
10 |
0 |
unless @new |
|
22
|
10 |
34 |
unless (ref $arg) |
|
30
|
15 |
2 |
defined $default ? : |
|
|
0 |
17 |
exists $defaults->{$name} ? : |
|
|
17 |
17 |
exists $bindings{$name} ? : |
|
33
|
29 |
5 |
if (defined $value) |
|
34
|
0 |
29 |
ref $value eq 'ARRAY' ? : |
|
37
|
0 |
5 |
if $type eq 'req' |
|
39
|
0 |
10 |
wantarray ? : |
|
45
|
0 |
9 |
unless defined $arg |
|
46
|
0 |
9 |
if ref $arg |
|
48
|
0 |
9 |
if (length $arg == 0) |
|
54
|
0 |
9 |
if ($first_char eq '\\') { } |
|
|
2 |
11 |
elsif ($first_char ne '<' and $first_char ne '[') { } |
|
63
|
4 |
3 |
$first_char eq '<' ? : |
|
64
|
0 |
7 |
unless my($name, $default) = $arg =~ /
\A \Q$first_char\E
([a-zA-Z_]\w+) # name, starts with no digit
(?: = (.*))? # optional default value
\Q$lc\E \z
/msux |