| line |
true |
false |
branch |
|
290
|
99 |
0 |
defined $_[0] ? : |
|
293
|
0 |
99 |
unless ref $opt eq 'HASH' |
|
296
|
0 |
99 |
if (exists $$opt{'attribute_name'}) |
|
298
|
0 |
0 |
if (exists $$opt{'method_factory_name'}) { } |
|
299
|
0 |
0 |
if $LEGACY_COUNT < 4 |
|
303
|
0 |
0 |
if $LEGACY_COUNT < 4 |
|
305
|
0 |
0 |
if $LEGACY_COUNT == 3 |
|
309
|
29 |
70 |
if exists $$opt{'default_value'} |
|
312
|
3 |
96 |
exists $$opt{'documented'} ? : |
|
315
|
0 |
99 |
exists $$opt{'exception_class'} ? : |
|
318
|
12 |
87 |
exists $$opt{'mandatory'} ? : |
|
321
|
0 |
99 |
if exists $$opt{'method_base'} |
|
324
|
76 |
23 |
if exists $$opt{'short_description'} |
|
339
|
46 |
421 |
if ($el =~ /^[+-]?\d+$/) { } |
|
348
|
22 |
413 |
if (wantarray) { } |
|
361
|
2 |
415 |
if ($el =~ /[\n\r\t\f\a\e]/) |
|
367
|
22 |
363 |
if (wantarray) { } |
|
369
|
0 |
22 |
$do_quote ? : |
|
376
|
2 |
361 |
$do_quote ? : |
|
389
|
0 |
2 |
if ($el =~ /^[+-]?\d+$/) { } |
|
405
|
0 |
2 |
if (wantarray) { } |
|
417
|
0 |
92 |
unless defined $self->get_perl_bean |
|
418
|
21 |
71 |
unless defined $self->get_perl_bean->get_collection |
|
428
|
0 |
16 |
unless defined $super_bean |
|
436
|
0 |
16 |
if defined $attr_over |
|
466
|
0 |
602 |
if defined $$self{'PerlBean_Attribute'}{'method_base'} |
|
475
|
0 |
744 |
unless defined $self->get_perl_bean |
|
496
|
500 |
13 |
if ($$self{'PerlBean_Attribute'}{'documented'}) { } |
|
507
|
83 |
574 |
if ($$self{'PerlBean_Attribute'}{'mandatory'}) { } |
|
549
|
0 |
29 |
unless &_value_is_allowed('default_value', $val) |
|
558
|
96 |
3 |
if (shift()) { } |
|
571
|
0 |
99 |
unless defined $val |
|
574
|
0 |
99 |
unless &_value_is_allowed('exception_class', $val) |
|
583
|
12 |
87 |
if (shift()) { } |
|
607
|
0 |
76 |
unless &_value_is_allowed('short_description', $val) |
|
616
|
18 |
74 |
if $self->isa('PerlBean::Attribute::Boolean') |
|
617
|
25 |
49 |
if $self->isa('PerlBean::Attribute::Multi') |
|
618
|
49 |
0 |
if $self->isa('PerlBean::Attribute::Single') |