| line |
true |
false |
branch |
|
27
|
0 |
0 |
if ref $expected |
|
30
|
0 |
0 |
exists $test_for{$expected} ? : |
|
42
|
0 |
0 |
if (@_ == 1 and &Params::Util::_HASHLIKE($_[0])) { } |
|
50
|
0 |
0 |
unless defined $moniker |
|
52
|
0 |
0 |
unless $opt_list |
|
56
|
0 |
0 |
ref $$opt_list{$_} ? : |
|
57
|
0 |
0 |
if ref $opt_list eq 'HASH' |
|
67
|
0 |
0 |
if ($require_unique) |
|
68
|
0 |
0 |
if $seen{$name}++ |
|
71
|
0 |
0 |
if ($i == $#$opt_list) { } |
|
|
0 |
0 |
elsif (not defined $$opt_list[$i + 1]) { } |
|
|
0 |
0 |
elsif (&$name_test($$opt_list[$i + 1])) { } |
|
76
|
0 |
0 |
if ($must_be and defined $value) |
|
77
|
0 |
0 |
unless (__is_a($value, $must_be)) |
|
92
|
0 |
0 |
unless $opt_list |