line |
true |
false |
branch |
405
|
79 |
0 |
defined $_[0] ? : |
408
|
0 |
79 |
unless ref $opt eq 'HASH' |
411
|
22 |
57 |
exists $$opt{'allow_empty'} ? : |
414
|
21 |
58 |
if (exists $$opt{'allow_isa'}) { } |
415
|
0 |
21 |
unless ref $$opt{'allow_isa'} eq 'ARRAY' |
423
|
12 |
67 |
if (exists $$opt{'allow_ref'}) { } |
424
|
0 |
12 |
unless ref $$opt{'allow_ref'} eq 'ARRAY' |
432
|
22 |
57 |
if (exists $$opt{'allow_rx'}) { } |
433
|
0 |
22 |
unless ref $$opt{'allow_rx'} eq 'ARRAY' |
441
|
8 |
71 |
if (exists $$opt{'allow_value'}) { } |
442
|
0 |
8 |
unless ref $$opt{'allow_value'} eq 'ARRAY' |
515
|
43 |
6 |
defined $self->get_short_description ? : |
544
|
43 |
6 |
defined $self->get_short_description ? : |
545
|
16 |
33 |
defined $self->get_default_value ? : |
546
|
36 |
13 |
$self->is_allow_empty ? : |
549
|
0 |
49 |
defined $attr_overl ? : |
560
|
13 |
36 |
unless ($self->is_allow_empty) |
588
|
28 |
21 |
if ($clauses) |
711
|
144 |
76 |
if ($$self{'PerlBean_Attribute_Single'}{'allow_empty'}) { } |
723
|
51 |
0 |
unless scalar $self->values_allow_isa or scalar $self->values_allow_ref or scalar $self->values_allow_rx or scalar $self->values_allow_value |
754
|
21 |
7 |
unless scalar $self->values_allow_isa |
786
|
23 |
5 |
unless scalar $self->values_allow_ref |
790
|
3 |
2 |
scalar $self->values_allow_isa ? : |
822
|
9 |
19 |
unless scalar $self->values_allow_rx |
826
|
0 |
19 |
scalar($self->values_allow_isa || $self->values_allow_ref) ? : |
859
|
26 |
2 |
unless scalar $self->values_allow_value |
863
|
2 |
0 |
scalar($self->values_allow_isa || $self->values_allow_ref || $self->values_allow_rx) ? : |
895
|
57 |
22 |
if (shift()) { } |
907
|
0 |
79 |
unless &_value_is_allowed('allow_isa', @_) |
922
|
0 |
79 |
unless &_value_is_allowed('allow_ref', @_) |
937
|
0 |
79 |
unless &_value_is_allowed('allow_rx', @_) |
952
|
0 |
79 |
unless &_value_is_allowed('allow_value', @_) |
994
|
65 |
25 |
unless scalar $self->values_allow_isa |
1004
|
74 |
12 |
unless scalar $self->values_allow_ref |
1021
|
59 |
27 |
unless scalar $self->values_allow_rx |
1032
|
73 |
8 |
unless scalar $self->values_allow_value |
1055
|
5 |
44 |
$self->is_mandatory ? : |
1056
|
16 |
33 |
defined $self->get_default_value ? : |
1060
|
5 |
44 |
if ($self->is_mandatory) |
1066
|
5 |
44 |
if ($self->is_mandatory) { } |
1072
|
16 |
28 |
if (defined $self->get_default_value) { } |
1094
|
0 |
110 |
unless $self->is_documented |
1099
|
15 |
95 |
$self->is_mandatory ? : |
1101
|
25 |
85 |
if (defined $self->get_default_value) |
1117
|
47 |
18 |
unless defined $self->get_default_value |