Condition Coverage

blib/lib/Class/Generate.pm
Criterion Covered Total %
condition 118 187 63.1


and 3 conditions

line !l l&&!r l&&r condition
90 0 47 0 not $allow_redefine_for_class and &$class_defined($class_name)
118 0 15 0 not $allow_redefine_for_class and &$class_defined($class_name)
133 0 15 0 warnings::enabled() and eval '! exists $' . $p . '::{_cginfo}'
600 0 0 6 exists $params{'m3'} and UNIVERSAL::isa($params{'m3'}, 'HASH')
0 0 2 exists $params{'m2'} and UNIVERSAL::isa($params{'m2'}, 'ARRAY')
0 0 4 defined $_ && UNIVERSAL::isa($_, 'Basic_Class')
0 0 2 UNIVERSAL::isa($_[0], 'ARRAY') and not grep((!(defined $_ && UNIVERSAL::isa($_, 'Basic_Class'))), @{$_[0];})
0 0 0 defined $_ && UNIVERSAL::isa($_, 'Basic_Class')
0 0 0 UNIVERSAL::isa($_[0], 'HASH') and not grep((!(defined $_ && UNIVERSAL::isa($_, 'Basic_Class'))), values %{$_[0];})
0 0 0 defined $_ && UNIVERSAL::isa($_, 'Basic_Class')
0 0 0 UNIVERSAL::isa($_[0], 'ARRAY') and not grep((!(defined $_ && UNIVERSAL::isa($_, 'Basic_Class'))), @{$_[0];})
1153 78 5 1 $_->isa('Class::Generate::Class_Method') && $class->private($_->name)
1234 27 9 0 defined $nonpublic_member_regexp and @objs = $method->objects
1328 161 5 1 $class->private($member_name = $member->name) and $disallow_private_members
1363 32 6 0 $disallow_private_members && $class->private($element_name)
6 2 33 defined $class->members($element_name) || defined $class->user_defined_methods($element_name) and not $disallow_private_members && $class->private($element_name)
1425 13 1 0 defined $pre and not $problems_in_pre
1511 3 2 42 $valid_vars and $#$valid_vars >= 0
1588 0 0 15 exists $stab{$method} and do { local *method_entry = $stab{$method}; defined &method_entry }
1744 53 0 31 $class->required($name) and not $self->default
1765 53 0 31 $class->required($name) and not $self->default
1913 0 87 31 $class->check_params and $class->required($name)
1956 47 24 0 $class->readonly($self->name) and not $class->check_params
1970 0 41 6 $class->check_params and defined $self->base
1975 0 45 2 defined $class->check_params and defined $self->assert
2087 0 57 2 $class->check_params and $class->readonly($self->name)
2108 0 57 0 defined $class->check_params and defined $self->assert
2129 0 49 10 $class->check_params and defined $self->base
2232 0 25 5 $class->check_params and defined $self->base
2239 0 30 0 defined $class->check_params and defined $self->assert
2544 11 1 45 not $class->parents and $style->can('params_check_form')
2573 0 55 2 defined $class->check_params and defined $self->assert
2597 0 56 1 $class->check_params and $class->virtual
2606 0 15 42 not $class->can_assign_all_params and $style->can('init_form')
2638 118 14 1 ($style->isa('Class::Generate::Own') || $class->protected($_->name) || $class->private($_->name)) && defined $_->default
2961 1587 113 14 defined $r && $method_name =~ /$r/
3001 0 0 0 defined $value and $value
3056 54 5 2 defined $emr and 'copy' =~ /$emr/
3057 54 5 2 defined $emr and 'equals' =~ /$emr/
3472 0 0 0 !$self->check_params && $self->all_members_required && $self->constructor->style->isa('Class::Generate::Positional') && !defined($self->parents)
3541 0 0 0 !$self->check_params && $self->all_members_required && !$self->constructor->style->isa('Class::Generate::Own') && !defined($self->parents)

or 2 conditions

line l !l condition
3760 3 1 scalar $class->public_member_names || 0
3774 6 0 scalar $class->public_member_names || 0

or 3 conditions

line l !l&&r !l&&!r condition
110 0 0 15 $@ or scalar $parent->values == 0
600 29 24 11 not exists $params{'mem_h'} or UNIVERSAL::isa($params{'mem_h'}, 'HASH')
23 10 5 not exists $params{'mem_a'} or UNIVERSAL::isa($params{'mem_a'}, 'ARRAY')
992 23 4 3 @keyed_members or @pos_members
1129 8 1 7 $class->protected($_->name) || $class->private($_->name)
14 1 4 $class->private($_) || $class->protected($_)
1209 29 14 5 $c->protected($element_name) or $c->private($element_name)
1216 23 15 8 $c->private($element_name) or $c->name eq $class->name
1363 31 10 6 defined $class->members($element_name) || defined $class->user_defined_methods($element_name)
1417 2 0 0 @$warnings || $$errors
1844 31 53 34 $class->required($self->name) && !defined($self->default) || $self->can_be_invalid
1868 72 23 220 $class->readonly($name) || $class->required($name)
3057 2 0 59 defined $emr and 'equals' =~ /$emr/ or defined $self->user_defined_methods('equals')
3089 18 29 379 $self->private($element_name) || $self->protected($element_name)
3106 0 0 2 $self->private($method_name) || $self->protected($method_name)
3191 4 0 53 @protected_members or @protected_methods
3224 25 14 20 do { my $has_complex_mems; foreach my $m (@members) { if ($m->isa('Class::Generate::List_Member') or defined $m->base) { $has_complex_mems = 1; last; } ; } ; $has_complex_mems } || $has_parents
3315 0 0 0 $self->private($m) or $self->required($m)
3335 21 32 515 $self->private($_) || $self->protected($_)
3359 1 0 8 defined $self->members || $self->virtual && $self->check_params || !$self->parents || do { my $c = $self->constructor; $c->style->isa('Class::Generate::Own') unless defined $c->post or defined $c->assert }