line |
true |
false |
branch |
293
|
0 |
13 |
if $defs |
294
|
0 |
13 |
if $template |
295
|
0 |
13 |
if $model |
298
|
5 |
8 |
if ($base) |
305
|
5 |
8 |
if ($base or $template or $model or $defs) { } |
338
|
31 |
5 |
if ref $_[0] eq 'Su' |
340
|
13 |
23 |
$$self{'base'} ? : |
341
|
0 |
36 |
$$self{'defs'} ? : |
351
|
33 |
3 |
unless ($b_force_reload) |
354
|
33 |
0 |
if ($self) { } |
355
|
21 |
12 |
if (defined $$self{'defs_module_name'} and $$self{'defs_module_name'} eq $defs_mod_name) |
361
|
0 |
0 |
if (defined $defs_module_name and $defs_module_name eq $defs_mod_name) |
368
|
15 |
0 |
if ($self) { } |
382
|
3 |
12 |
if ($b_force_reload) |
390
|
15 |
0 |
if ($self) { } |
412
|
0 |
4 |
if ref $_[0] eq 'Su' |
414
|
2 |
2 |
if (ref $_[0] eq 'HASH') { } |
440
|
0 |
16 |
if (scalar @_ == 1) { } |
443
|
0 |
0 |
if (ref $tmp_ref eq 'SCALAR') |
615
|
39 |
6 |
if ref $_[0] eq 'Su' |
621
|
39 |
6 |
$self && eval {
do {
$self->isa('Su')
}
} ? : |
624
|
7 |
36 |
if $new_comp_id |
628
|
0 |
43 |
$$self{'model'} ? : |
629
|
0 |
43 |
$$self{'template'} ? : |
634
|
0 |
1 |
$$self{'defs_module_name'} ? : |
|
1 |
42 |
unless $proc_id |
645
|
42 |
0 |
if $self |
652
|
37 |
5 |
if ($tmpl_module->can('model')) |
655
|
4 |
33 |
if (ref $$info_href{$comp_id}{'model'} eq 'HASH') { } |
|
3 |
30 |
elsif (ref $$info_href{$comp_id}{'model'} eq 'ARRAY') { } |
669
|
5 |
25 |
if $MODEL_LOCALE |
673
|
30 |
0 |
if ($loading_model) |
675
|
3 |
27 |
unless $model |
678
|
2 |
28 |
if defined $$info_href{$GLOBAL_MODEL_FIELD} |
687
|
3 |
27 |
if ($MODEL_KEY_PREFIX or $MODEL_KEY_POSTFIX) |
690
|
1 |
11 |
if (exists $$model{$MODEL_KEY_PREFIX . '__' . $key . '__' . $MODEL_KEY_POSTFIX}) { } |
|
3 |
8 |
elsif (exists $$model{$MODEL_KEY_PREFIX . '__' . $key}) { } |
|
3 |
5 |
elsif (exists $$model{$key . '__' . $MODEL_KEY_POSTFIX}) { } |
716
|
3 |
39 |
if ($$self{'just_return_module'}) |
720
|
34 |
5 |
if ($tmpl_module->can('model')) |
721
|
3 |
31 |
if (ref $$info_href{$comp_id}{'model'} eq 'ARRAY') |
731
|
9 |
0 |
if ($loaded_model) |
745
|
5 |
34 |
if ($$info_href{$comp_id}{'map_filter'}) |
748
|
5 |
0 |
if (ref $$info_href{$comp_id}{'map_filter'} eq '') { } |
|
0 |
0 |
elsif (ref $$info_href{$comp_id}{'map_filter'} eq 'ARRAY') { } |
760
|
2 |
37 |
if ($$info_href{$comp_id}{'reduce_filter'}) |
763
|
2 |
0 |
if (ref $$info_href{$comp_id}{'reduce_filter'} eq '') |
769
|
3 |
36 |
if ($$info_href{$comp_id}{'scalar_filter'}) |
772
|
3 |
0 |
if (ref $$info_href{$comp_id}{'scalar_filter'} eq '') { } |
|
0 |
0 |
elsif (ref $$info_href{$comp_id}{'scalar_filter'} eq 'ARRAY') { } |
783
|
3 |
36 |
if (@ret_arr) |
802
|
31 |
1 |
scalar @single_ret_arr == 1 ? : |
|
32 |
4 |
unless $reduce_filter or @scalar_filters |
808
|
2 |
2 |
if ($reduce_filter) { } |
|
1 |
1 |
elsif (scalar @single_ret_arr == 1) { } |
836
|
39 |
6 |
if ref $_[0] eq 'Su' |
842
|
8 |
37 |
if ($USE_GLOBAL_SETUP) { } |
|
31 |
6 |
elsif ($self and UNIVERSAL::isa($self, 'UNIVERSAL') and $self->isa('Su')) { } |
850
|
25 |
6 |
unless ref $comp_id eq 'HASH' |
855
|
6 |
0 |
unless (ref $comp_id eq 'HASH') |
860
|
1 |
5 |
keys %{$Su::info_href;} ? : |
871
|
7 |
38 |
if (ref $comp_id eq 'HASH') { } |
|
25 |
13 |
elsif (not $info_href) { } |
879
|
25 |
0 |
$$self{'defs_href'} ? : |
882
|
2 |
43 |
unless ($$info_href{$comp_id} and (ref $$info_href{$comp_id} eq 'HASH' and keys %{$$info_href{$comp_id};})) |
893
|
7 |
36 |
$comp_id eq 'dmy_id' ? : |
904
|
1 |
0 |
if ref $_[0] eq 'Su' |
906
|
1 |
0 |
if ($self) { } |
924
|
3 |
0 |
if ref $_[0] eq 'Su' |
942
|
0 |
0 |
if ref $_[0] eq 'Su' |
944
|
0 |
0 |
if ($self) { } |
959
|
1 |
0 |
if ref $_[0] eq 'Su' |
961
|
1 |
0 |
if ($self) { } |
976
|
0 |
0 |
if ref $_[0] eq 'Su' |
978
|
0 |
0 |
if ($self) { } |
1000
|
0 |
0 |
if ref $_[0] eq 'Su' |
1003
|
0 |
0 |
unless $pkg |
1007
|
0 |
0 |
if ($self) { } |
1033
|
3 |
0 |
if ref $_[0] eq 'Su' |
1034
|
3 |
0 |
$$self{'base'} ? : |
1049
|
3 |
0 |
if ref $_[0] eq 'Su' |
1050
|
3 |
0 |
$$self{'base'} ? : |
1077
|
3 |
0 |
if ref $_[0] eq 'Su' |
1085
|
0 |
3 |
unless $fqcn |
1088
|
3 |
0 |
$self ? : |
1091
|
1 |
2 |
if ($fqcn =~ /.+Proc$/) { } |
1103
|
3 |
0 |
$self ? : |
1111
|
0 |
3 |
_is_string($gen_def) ? : |
1114
|
1 |
0 |
$self ? : |
|
3 |
0 |
if ($gen_def or $self ? $self->_is_defs_exist($defs_fname) : _is_defs_exist($defs_fname)) { } |
1123
|
3 |
0 |
if ($self) { } |
1195
|
6 |
0 |
if ref $_[0] eq 'Su' |
1197
|
6 |
0 |
$self ? : |
1203
|
6 |
0 |
if (scalar @_ != 1) |
1205
|
1 |
5 |
if ($ret == 0 and not $defs_h{'just_add_entry_if_defs_already_exist'}) |
1225
|
6 |
0 |
if ref $_[0] eq 'Su' |
1233
|
0 |
6 |
unless &open(my $F, '<', $template_fname) |
1236
|
6 |
0 |
$self ? : |
1253
|
6 |
0 |
if ref $_[0] eq 'Su' |
1259
|
0 |
6 |
if (scalar @_ == 1) { } |
1270
|
6 |
0 |
$$self{'base'} ? : |
1271
|
0 |
6 |
$$self{'defs'} ? : |
1276
|
3 |
3 |
if (scalar @arr > 1) |
1281
|
3 |
3 |
if ($defs_id =~ m[::|/]) { } |
1288
|
0 |
6 |
unless -d $dir |
1290
|
0 |
6 |
unless (-d $dir) |
1299
|
3 |
3 |
if ($defs_id =~ m[::|/]) { } |
1307
|
3 |
3 |
unless ($defs_id =~ /::/) |
1321
|
3 |
3 |
if (-f $fpath) |
1324
|
2 |
1 |
if ($defs_h{'just_add_entry_if_defs_already_exist'}) { } |
1352
|
1 |
2 |
if ($defs_h{'use_proc_name_as_entry_id'}) |
1363
|
0 |
3 |
$pkg ? : |
1386
|
0 |
3 |
if ($arg and ($arg ^ $arg) ne '0' and not ref $arg and $arg ne 'true') { } |
1449
|
0 |
3 |
if ref $_[0] eq 'Su' |
1479
|
1 |
0 |
if ref $_[0] eq 'Su' |
1482
|
1 |
0 |
$$self{'base'} ? : |
1483
|
0 |
1 |
$$self{'defs'} ? : |
1488
|
1 |
0 |
if ($defs_id =~ m[::|/]) { } |