| line |
true |
false |
branch |
|
198
|
99 |
0 |
defined $_[0] ? : |
|
201
|
0 |
99 |
unless ref $opt eq 'HASH' |
|
204
|
0 |
99 |
unless exists $$opt{'method_factory_name'} |
|
208
|
20 |
79 |
if exists $$opt{'perl_bean'} |
|
218
|
0 |
0 |
unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name}) |
|
226
|
112 |
99 |
if (ref $val and exists $ALLOW_ISA{$name}) |
|
228
|
112 |
0 |
if &UNIVERSAL::isa($val, $class) |
|
233
|
0 |
99 |
if (ref $val and exists $ALLOW_REF{$name}) |
|
234
|
0 |
0 |
if exists $ALLOW_REF{$name}{ref $val} |
|
238
|
99 |
0 |
if (defined $val and not ref $val and exists $ALLOW_RX{$name}) |
|
240
|
99 |
0 |
if $val =~ /$rx/ |
|
245
|
0 |
0 |
if (not ref $val and exists $ALLOW_VALUE{$name}) |
|
246
|
0 |
0 |
if exists $ALLOW_VALUE{$name}{$val} |
|
278
|
0 |
99 |
unless defined $val |
|
281
|
0 |
99 |
unless &_value_is_allowed('method_factory_name', $val) |
|
292
|
0 |
112 |
unless &_value_is_allowed('perl_bean', $val) |