Condition Coverage

blib/lib/PerlBean.pm
Criterion Covered Total %
condition 55 87 63.2


and 2 conditions

line l !l condition
1413 19 8 not $do_implement and defined $self->get_collection and scalar $self->get_base
1418 0 8 $super_in_collection &&= scalar $self->get_collection->values_perl_bean($base)
1487 12 15 not $do_implement and defined $self->get_collection and scalar $self->get_base
1492 0 15 $super_in_collection &&= scalar $self->get_collection->values_perl_bean($base)

and 3 conditions

line !l l&&!r l&&r condition
1167 354 174 162 $a =~ /^[a-z]/ and not $b =~ /^[a-z]/
174 186 168 not $a =~ /^[a-z]/ and $b =~ /^[a-z]/
1358 27 0 0 $self->exists_method('new') and $self->exists_method('_initialize')
1413 19 0 8 not $do_implement and defined $self->get_collection
1487 12 0 15 not $do_implement and defined $self->get_collection
2141 85 0 889 ref $val and exists $ALLOW_ISA{$name}
2148 85 0 0 ref $val and exists $ALLOW_REF{$name}
2153 0 0 85 defined $val and not ref $val
0 0 85 defined $val and not ref $val and exists $ALLOW_RX{$name}
2160 0 0 0 not ref $val and exists $ALLOW_VALUE{$name}
2364 2 2 23 defined $self->get_collection and defined $self->get_collection->get_license

or 2 conditions

line l !l condition
1857 34 27 shift() || {}
1892 34 27 shift() || {}

or 3 conditions

line l !l&&r !l&&!r condition
1029 0 27 0 ref $class || $class
1238 5 0 29 $method_factory->write_allow_isa || $method_factory->write_allow_ref || $method_factory->write_allow_rx || $method_factory->write_allow_value
1381 78 15 113 $mand ||= $attr->is_mandatory
1409 18 1 8 $do_implement ||= !scalar($self->get_base)
1411 19 0 8 $do_implement ||= scalar $self->get_base > 1
1610 64 8 20 $has_default_value ||= $method_factory->write_default_value
1835 0 0 27 $self->exists_symbol('$VERSION') or $self->exists_symbol('($VERSION)')
2008 0 0 6 $sym->get_symbol_name eq '%EXPORT_TAGS' or $sym->get_symbol_name eq '@EXPORT_OK'
0 0 6 $sym->get_symbol_name eq '%EXPORT_TAGS' or $sym->get_symbol_name eq '@EXPORT_OK' or $sym->get_symbol_name eq '@EXPORT'
2133 1024 0 230 exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name}
0 0 230 exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name}
97 0 133 exists $ALLOW_ISA{$name} or exists $ALLOW_REF{$name} or exists $ALLOW_RX{$name} or exists $ALLOW_VALUE{$name}
2186 0 27 487 $do_constructors ||= $method->isa('PerlBean::Method::Constructor')
2425 0 27 5 $do_methods ||= !$method->isa('PerlBean::Method::Constructor')