| line |
true |
false |
branch |
|
255
|
1 |
1 |
defined $_[0] ? : |
|
258
|
0 |
2 |
unless ref $opt eq 'HASH' |
|
261
|
1 |
1 |
if exists $$opt{'license'} |
|
264
|
0 |
2 |
if (exists $$opt{'perl_bean'}) { } |
|
265
|
0 |
0 |
unless ref $$opt{'perl_bean'} eq 'ARRAY' |
|
280
|
0 |
0 |
unless (exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name}) |
|
288
|
25 |
1 |
if (ref $val and exists $ALLOW_ISA{$name}) |
|
290
|
25 |
0 |
if &UNIVERSAL::isa($val, $class) |
|
295
|
0 |
1 |
if (ref $val and exists $ALLOW_REF{$name}) |
|
296
|
0 |
0 |
if exists $ALLOW_REF{$name}{ref $val} |
|
300
|
1 |
0 |
if (defined $val and not ref $val and exists $ALLOW_RX{$name}) |
|
302
|
1 |
0 |
if $val =~ /$rx/ |
|
307
|
0 |
0 |
if (not ref $val and exists $ALLOW_VALUE{$name}) |
|
308
|
0 |
0 |
if exists $ALLOW_VALUE{$name}{$val} |
|
323
|
0 |
25 |
unless &_value_is_allowed('perl_bean', @_) |
|
374
|
0 |
1 |
unless &_value_is_allowed('license', $val) |
|
384
|
0 |
2 |
unless &_value_is_allowed('perl_bean', @_) |
|
399
|
600 |
6 |
if (scalar @_) { } |
|
402
|
600 |
0 |
if exists $$self{'PerlBean_Collection'}{'perl_bean'}{$key} |
|
417
|
0 |
2 |
unless -d $dir |
|
421
|
0 |
2 |
unless -w $dir |
|
439
|
38 |
8 |
if -d $dir_tot |