| line |
true |
false |
branch |
|
111
|
0 |
2 |
if $global_debug |
|
162
|
2 |
0 |
if exists $FIELD_LIST{$class} |
|
173
|
2 |
10 |
if (ref $val eq 'ARRAY') { } |
|
|
2 |
8 |
elsif (ref $val eq 'HASH') { } |
|
190
|
0 |
6 |
if (exists $args{$special}) |
|
203
|
0 |
2 |
if $global_debug >= 3 |
|
227
|
1 |
1 |
unless ($CLASS_INIT{$class}) |
|
236
|
1 |
0 |
if ($fields) |
|
238
|
0 |
1 |
if $global_debug >= 4 |
|
243
|
0 |
1 |
if (ref $fields eq 'ARRAY') { } |
|
|
1 |
0 |
elsif (ref $fields eq 'HASH') { } |
|
272
|
4 |
2 |
unless ($class->can($field)) |
|
285
|
4 |
2 |
unless ($class->can("undef_$field")) |
|
299
|
0 |
1 |
if $global_debug >= 4 |
|
301
|
5 |
4 |
@_ ? : |
|
|
5 |
4 |
@_ ? : |
|
|
2 |
4 |
@_ ? : |
|
|
5 |
4 |
@_ ? : |
|
302
|
0 |
1 |
if ($@) |
|
317
|
0 |
2 |
if $global_debug >= 3 |
|
400
|
0 |
0 |
if defined $flag |
|
428
|
0 |
0 |
if defined $flag |
|
450
|
0 |
0 |
if defined $flag |
|
472
|
1 |
1 |
if ($class->allowed_class_instance and not $class->has_class_instance) |
|
476
|
0 |
1 |
if $global_debug >= 3 |
|
534
|
0 |
0 |
if exists $FIELD_LIST{$class} |
|
536
|
0 |
0 |
$href ? : |
|
564
|
0 |
0 |
if defined $level |
|
615
|
0 |
0 |
if defined $level |
|
661
|
0 |
0 |
if exists $FIELD_LIST{$class} |
|
662
|
0 |
0 |
unless exists $field_list{$field} |
|
664
|
0 |
0 |
if defined $value |
|
700
|
6 |
0 |
if exists $FIELD_LIST{$class} |
|
704
|
20 |
16 |
if (exists $args{$field}) |
|
706
|
0 |
20 |
if $global_debug >= 3 |
|
709
|
7 |
13 |
if (not defined $args{$field}) { } |
|
723
|
0 |
6 |
if ($strict_fields) |
|
728
|
0 |
0 |
unless (exists $field_list{$field}) |
|
736
|
0 |
6 |
if $global_debug >= 3 |
|
758
|
0 |
0 |
if exists $FIELD_LIST{$class} |
|
765
|
0 |
0 |
unless (@names) |
|
776
|
0 |
0 |
if exists $names{$field} |
|
829
|
0 |
8 |
unless (ref $this) |
|
832
|
0 |
0 |
if ($class->has_class_instance) { } |
|
870
|
0 |
0 |
if (exists $field_list{$field}) |
|
938
|
0 |
0 |
unless ($^O eq 'MSWin32') |
|
976
|
0 |
0 |
if (defined $vars_href->{$1}) { } |
|
1052
|
0 |
0 |
if ($subr) |
|
1075
|
0 |
0 |
if ($global_debug >= 10) |
|
1090
|
0 |
0 |
if exists $FIELD_LIST{$class} |
|
1092
|
0 |
0 |
if (not exists $field_list{$field}) { } |
|
1097
|
0 |
0 |
if $global_debug >= 10 |
|
1110
|
0 |
0 |
if $global_debug >= 5 |
|
1128
|
0 |
0 |
if ($global_debug >= 10) |
|
1140
|
0 |
0 |
if exists $FIELD_LIST{$class} |
|
1142
|
0 |
0 |
if (not exists $field_list{$field}) { } |
|
1148
|
0 |
0 |
if $global_debug >= 10 |
|
1160
|
0 |
0 |
if $global_debug >= 5 |
|
1175
|
0 |
0 |
if $global_debug >= 5 |
|
1178
|
0 |
0 |
if ($global_debug >= 10) |
|
1189
|
0 |
0 |
if (not ref $this or ref $this eq 'ARRAY') |
|
1221
|
0 |
0 |
if defined $new_value |
|
1224
|
0 |
0 |
if ($name =~ /^undef_(\w+)$/) |
|
1233
|
0 |
0 |
if ($set) |