Branch Coverage

blib/lib/Config/Model/Itself.pm
Criterion Covered Total %
branch 59 112 52.6


line true false branch
59 0 0 if ($self->{'meta_root'}) { }
0 0 elsif ($self->{'meta_instance'}) { }
82 0 0 if ($self->{'meta_root'}) { }
118 0 0 unless ($p->is_dir)
119 0 0 unless $p->mkpath(0, 493)
159 5 6569 unless $p =~ /^class/
160 107 6462 unless $args{'index'}
161 5577 885 if $self->class_was_changed($args{'index'})
199 0 3 if $file =~ m[/README]
200 0 3 if $file =~ /(~|\.bak|\.orig)$/
201 0 3 if $application and $file->basename ne $application
212 0 6 unless $v
219 0 3 $force_load ? :
236 0 7 if ($args{'read_from'})
238 0 0 unless $read_from->is_dir
240 0 0 unless $model_dir->is_dir
249 0 7 if %args
261 63 0 if $_->is_file and /\.pl$/ and m[$read_dir/$root_model_file\b] and not m[\.d/]
281 21 42 $legacy ? :
291 0 63 if $file eq $rel_file
307 123 0 unless Compare($raw_model, $new_model)
312 3810 0 unless defined $moved_data
333 0 351 unless defined $new_model->{$_} and $new_model->{$_} ne ''
352 2 5 $force_load ? :
367 918 63 if ($l =~ /^\s*#/ or $l =~ /^\s*$/) { }
389 0 246 if ($ref and ref $ref eq 'ARRAY')
390 0 0 if (@$ref == 1) { }
0 0 elsif (@$ref > 1) { }
400 0 123 if ($model->{'read_config'} and not $multi_backend)
405 0 123 if ($model->{'write_config'} and not $multi_backend)
407 0 0 if (not $multi_backend)
425 0 66 unless $class_element->defined($class_name)
436 66 0 if keys %$model
455 2 18 if $name eq 'category'
458 14 4 unless defined $v
474 0 4 if %args
512 65 0 if $self->class_needs_write($class_name)
516 0 45 unless $file_needs_write
522 65 0 if defined $model and keys %$model
530 0 45 unless @data
545 0 2 if %args
550 0 2 unless $model->{'class'}
573 0 1 if %args
578 2 0 if -f $_ and not /~$/ and not $n =~ /CVS/ and not $n =~ /.(svn|orig|pod)$/ and $n =~ m[\.d/$plugin_name]
591 2 0 if not $load_file =~ m[^/] and -e $load_file
595 0 2 unless ($plugin)
596 0 0 if ($@) { }
0 0 elsif (not defined $plugin) { }
628 8 41 unless (-d $wr_dir)
629 0 8 unless mkpath($wr_dir, 0, 493)
683 10 31 if (@include and not defined $inc_after)
687 2 39 unless @elts
693 8 142 if (@include and defined $inc_after and $inc_after eq $elt_name)
719 30 96 if ($type =~ /^list|hash$/) { }
765 2918 28 unless $element_name eq 'config_class_name'
767 7 21 unless $v