| line |
true |
false |
branch |
|
46
|
0 |
3 |
if @params < 3 |
|
50
|
0 |
3 |
unless defined $class and defined $name and defined $description |
|
52
|
0 |
3 |
unless @params % 2 == 0 |
|
56
|
2 |
1 |
if (exists $$classes_store{$class}) { } |
|
58
|
0 |
2 |
if $$package_store{'Final'} |
|
74
|
0 |
3 |
if exists $$package_store{'FieldsDefs'}{$name} |
|
83
|
0 |
0 |
unless $opt_name eq 'default' or $opt_name eq 'short' |
|
94
|
0 |
1 |
unless exists $$classes_store{$class} |
|
95
|
0 |
1 |
unless @params % 2 == 0 |
|
117
|
0 |
21 |
unless (defined $obj_ref) |
|
120
|
18 |
3 |
unless (ref $obj_ref) |
|
124
|
0 |
3 |
if (UNIVERSAL::isa($obj_ref, 'SCALAR')) |
|
129
|
1 |
2 |
if (UNIVERSAL::isa($obj_ref, 'ARRAY')) |
|
135
|
0 |
2 |
unless UNIVERSAL::isa($obj_ref, 'HASH') |
|
137
|
0 |
2 |
unless ($tied_obj and UNIVERSAL::isa($tied_obj, 'Class::STAF::Marshalled::_Tied')) |
|
169
|
6 |
12 |
unless exists $$field{$field_name} |
|
190
|
0 |
3 |
if @params < 1 |
|
191
|
3 |
0 |
if (@params == 1) { } |
|
199
|
1 |
2 |
if (not %$class_def) { } |
|
221
|
0 |
6 |
unless defined $len1 |
|
230
|
0 |
12 |
unless defined $p_name_len and length $my_string >= $p_name_len + length($p_name_len) + 2 |
|
237
|
0 |
12 |
unless defined $p_value_len and length $my_string >= $p_value_len + length($prefix2) |
|
254
|
0 |
2 |
unless defined $len1 |
|
262
|
0 |
2 |
unless defined $prefix |
|
274
|
0 |
2 |
unless defined $postfix |
|
293
|
0 |
22 |
unless $type |
|
303
|
0 |
22 |
unless $len |
|
305
|
16 |
6 |
if ($type eq '$') { } |
|
|
1 |
5 |
elsif ($type eq '[') { } |
|
|
0 |
5 |
elsif ($type eq '{') { } |
|
|
2 |
3 |
elsif ($type eq '%') { } |
|
|
3 |
0 |
elsif ($type eq '*') { } |
|
306
|
0 |
16 |
if ($typeInfo eq '0') { } |
|
|
16 |
0 |
elsif ($typeInfo eq 'S') { } |
|
317
|
0 |
1 |
unless $typeInfo =~ /\d+/ |
|
328
|
0 |
0 |
if ($len == 0) |
|
335
|
0 |
0 |
unless substr($the_rest, 0, 1) eq ':' |
|
338
|
0 |
0 |
unless $next_colon > 1 and $next_colon < 8 |
|
357
|
0 |
2 |
unless exists $$class_storage{$class_name} |
|
388
|
0 |
3 |
unless defined $string and $string =~ m[^\@SDT/] |
|
394
|
0 |
3 |
if $@ |
|
395
|
0 |
3 |
if $string |
|
402
|
0 |
0 |
unless (defined $ref) |
|
405
|
0 |
0 |
unless UNIVERSAL::isa($ref, 'HASH') |
|
407
|
0 |
0 |
unless $tied_obj |
|
408
|
0 |
0 |
unless UNIVERSAL::isa($tied_obj, 'Class::STAF::Marshalled::_Tied') |
|
414
|
0 |
0 |
unless (defined $ref) |
|
417
|
0 |
0 |
unless UNIVERSAL::isa($ref, 'HASH') |
|
419
|
0 |
0 |
unless $tied_obj |
|
420
|
0 |
0 |
unless UNIVERSAL::isa($tied_obj, 'Class::STAF::Marshalled::_Tied') |
|
435
|
0 |
9 |
if (exists $$val{'default'}) { } |
|
447
|
0 |
3 |
unless exists $$self[0]{$key} |
|
453
|
0 |
9 |
unless exists $$self[0]{$key} |
|
465
|
0 |
0 |
if (exists $$val{'default'}) { } |