Condition Coverage

blib/lib/Class/Generate.pm
Criterion Covered Total %
condition 114 187 60.9


and 3 conditions

line !l l&&!r l&&r condition
77 0 47 0 not $allow_redefine_for_class and &$class_defined($class_name)
99 0 15 0 not $allow_redefine_for_class and &$class_defined($class_name)
108 0 15 0 warnings::enabled() and eval '! exists $' . $p . '::{_cginfo}'
449 0 0 6 exists $params{'m2'} and UNIVERSAL::isa($params{'m2'}, 'ARRAY')
0 0 2 exists $params{'m3'} and UNIVERSAL::isa($params{'m3'}, 'HASH')
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];})
829 77 4 2 $_->isa('Class::Generate::Class_Method') && $class->private($_->name)
884 26 6 3 defined $nonpublic_member_regexp and @objs = $method->objects
952 173 8 1 $class->private($member_name = $member->name) and $disallow_private_members
969 27 6 0 $disallow_private_members && $class->private($element_name)
6 0 33 defined $class->members($element_name) || defined $class->user_defined_methods($element_name) and not $disallow_private_members && $class->private($element_name)
1015 13 0 0 defined $pre and not $problems_in_pre
1080 2 2 42 $valid_vars and $#$valid_vars >= 0
1138 0 15 0 exists $stab{$method} and do { local *method_entry = $stab{$method}; defined &method_entry }
1252 53 0 31 $class->required($name) and not $self->default
1269 53 0 31 $class->required($name) and not $self->default
1369 0 87 31 $class->check_params and $class->required($name)
1402 47 24 0 $class->readonly($self->name) and not $class->check_params
1412 0 41 6 $class->check_params and defined $self->base
1415 0 45 2 defined $class->check_params and defined $self->assert
1499 0 57 2 $class->check_params and $class->readonly($self->name)
1507 0 57 0 defined $class->check_params and defined $self->assert
1522 0 49 10 $class->check_params and defined $self->base
1596 0 25 5 $class->check_params and defined $self->base
1600 0 30 0 defined $class->check_params and defined $self->assert
1811 11 1 45 not $class->parents and $style->can('params_check_form')
1829 0 55 2 defined $class->check_params and defined $self->assert
1845 0 56 1 $class->check_params and $class->virtual
1848 0 15 42 not $class->can_assign_all_params and $style->can('init_form')
1867 118 14 1 ($style->isa('Class::Generate::Own') || $class->protected($_->name) || $class->private($_->name)) && defined $_->default
2084 1587 113 14 defined $r && $method_name =~ /$r/
2113 0 0 0 defined $value and $value
2155 54 7 0 defined $emr and 'copy' =~ /$emr/
2156 54 7 0 defined $emr and 'equals' =~ /$emr/
2441 0 0 0 !$self->check_params && $self->all_members_required && $self->constructor->style->isa('Class::Generate::Positional') && !defined($self->parents)
2487 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
2640 3 1 scalar $class->public_member_names || 0
2648 6 0 scalar $class->public_member_names || 0

or 3 conditions

line l !l&&r !l&&!r condition
93 0 0 15 $@ or scalar $parent->values == 0
449 15 21 1 not exists $params{'mem_h'} or UNIVERSAL::isa($params{'mem_h'}, 'HASH')
6 5 4 not exists $params{'mem_a'} or UNIVERSAL::isa($params{'mem_a'}, 'ARRAY')
715 38 1 9 @keyed_members or @pos_members
815 17 5 10 $class->protected($_->name) || $class->private($_->name)
12 7 6 $class->private($_) || $class->protected($_)
868 24 14 8 $c->protected($element_name) or $c->private($element_name)
871 22 16 9 $c->private($element_name) or $c->name eq $class->name
969 44 8 6 defined $class->members($element_name) || defined $class->user_defined_methods($element_name)
1009 0 0 0 @$warnings || $$errors
1319 31 53 34 $class->required($self->name) && !defined($self->default) || $self->can_be_invalid
1338 72 23 220 $class->readonly($name) || $class->required($name)
2156 2 0 59 defined $emr and 'equals' =~ /$emr/ or defined $self->user_defined_methods('equals')
2180 18 29 379 $self->private($element_name) || $self->protected($element_name)
2193 0 0 2 $self->private($method_name) || $self->protected($method_name)
2248 4 0 53 @protected_members or @protected_methods
2272 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
2336 0 0 0 $self->private($m) or $self->required($m)
2350 21 32 515 $self->private($_) || $self->protected($_)
2366 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 }