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