Branch Coverage

File:local/lib/perl5/Data/OptList.pm
Coverage:76.7%

line%coveragebranch
27100TFif ref $expected
3050TFexists $test_for{$expected} ? :
4250TFif (@_ == 1 and &Params::Util::_HASHLIKE($_[0])) { }
50100TFunless defined $moniker
5250TFunless $opt_list
5650TFref $$opt_list{$_} ? :
57100TFif ref $opt_list eq 'HASH'
67100TFif ($require_unique)
6850TFif $seen{$name}++
71100TFif ($i == $#$opt_list) { }
50TFelsif (not defined $$opt_list[$i + 1]) { }
100TFelsif (&$name_test($$opt_list[$i + 1])) { }
76100TFif ($must_be and defined $value)
7750TFunless (__is_a($value, $must_be))
92100TFunless $opt_list