| 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
|
3 |
3908 |
unless $p =~ /^class/ |
|
160
|
0 |
3908 |
unless $args{'index'} |
|
161
|
3049 |
859 |
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 |
|
305
|
123 |
0 |
unless Compare($raw_model, $new_model) |
|
310
|
3825 |
0 |
unless defined $moved_data |
|
331
|
0 |
354 |
unless defined $new_model->{$_} and $new_model->{$_} ne '' |
|
350
|
2 |
5 |
$force_load ? : |
|
365
|
918 |
63 |
if ($l =~ /^\s*#/ or $l =~ /^\s*$/) { } |
|
391
|
0 |
66 |
unless $class_element->defined($class_name) |
|
402
|
66 |
0 |
if keys %$model |
|
421
|
2 |
18 |
if $name eq 'category' |
|
424
|
14 |
4 |
unless defined $v |
|
440
|
0 |
4 |
if %args |
|
478
|
65 |
0 |
if $self->class_needs_write($class_name) |
|
482
|
0 |
45 |
unless $file_needs_write |
|
488
|
65 |
0 |
if defined $model and keys %$model |
|
496
|
0 |
45 |
unless @data |
|
511
|
0 |
2 |
if %args |
|
516
|
0 |
2 |
unless $model->{'class'} |
|
539
|
0 |
1 |
if %args |
|
544
|
2 |
0 |
if -f $_ and not /~$/ and not $n =~ /CVS/ and not $n =~ /.(svn|orig|pod)$/ and $n =~ m[\.d/$plugin_name] |
|
557
|
2 |
0 |
if not $load_file =~ m[^/] and -e $load_file |
|
561
|
0 |
2 |
unless ($plugin) |
|
562
|
0 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif (not defined $plugin) { } |
|
594
|
9 |
40 |
unless (-d $wr_dir) |
|
595
|
0 |
9 |
unless mkpath($wr_dir, 0, 493) |
|
649
|
10 |
31 |
if (@include and not defined $inc_after) |
|
653
|
2 |
39 |
unless @elts |
|
659
|
8 |
145 |
if (@include and defined $inc_after and $inc_after eq $elt_name) |
|
685
|
30 |
97 |
if ($type =~ /^list|hash$/) { } |
|
731
|
2923 |
27 |
unless $element_name eq 'config_class_name' |
|
733
|
7 |
20 |
unless $v |