| line |
true |
false |
branch |
|
19
|
14 |
209 |
if ($key eq '_default_') |
|
22
|
13 |
1 |
if (ref $value) { } |
|
|
0 |
1 |
elsif (exists $$encode{$value}) { } |
|
23
|
0 |
13 |
if ($value != $Data::ParseBinary::BaseConstruct::DefaultPass) |
|
42
|
78 |
55 |
if (exists $$self{'decode'}{$value}) |
|
45
|
54 |
1 |
if ($$self{'have_default'}) |
|
46
|
53 |
1 |
if (ref $$self{'default_action'} and $$self{'default_action'} == $Data::ParseBinary::BaseConstruct::DefaultPass) |
|
56
|
72 |
54 |
if (exists $$self{'encode'}{$tvalue}) |
|
59
|
54 |
0 |
if ($$self{'have_default'}) |
|
60
|
53 |
1 |
if (ref $$self{'default_action'} and $$self{'default_action'} == $Data::ParseBinary::BaseConstruct::DefaultPass) |
|
74
|
0 |
4 |
if @mapping % 2 == 1 |
|
87
|
40 |
395 |
if $value & $$rec[1] |
|
96
|
2 |
28 |
if (exists $$tvalue{$$rec[0]} and $$tvalue{$$rec[0]}) |
|
162
|
8 |
23 |
unless ($value eq $$self{'value'}) |
|
170
|
3 |
21 |
unless (defined $self->_get_name) |
|
174
|
14 |
7 |
if (defined $tvalue and $tvalue eq $$self{'value'}) |
|
177
|
2 |
5 |
defined $tvalue ? : |
|
199
|
0 |
4 |
unless (defined $params{'length'}) |
|
204
|
4 |
0 |
defined $params{'padchar'} ? : |
|
207
|
0 |
4 |
unless (grep(($_ eq $$self{'paddir'}), ('right', 'left', 'center'))) |
|
210
|
0 |
4 |
if (not grep(($_ eq $$self{'trimdir'}), ('right', 'left'))) |
|
219
|
11 |
0 |
if ($$self{'paddir'} eq 'right' or $$self{'paddir'} eq 'center') { } |
|
|
0 |
0 |
elsif ($$self{'paddir'} eq 'left' or $$self{'paddir'} eq 'center') { } |
|
231
|
2 |
0 |
if (length $value < $$self{'length'}) |
|
234
|
2 |
0 |
if ($$self{'paddir'} eq 'right') { } |
|
|
0 |
0 |
elsif ($$self{'paddir'} eq 'left') { } |
|
|
0 |
0 |
elsif ($$self{'paddir'} eq 'center') { } |
|
240
|
0 |
0 |
$add % 2 == 0 ? : |
|
244
|
0 |
2 |
if (length $value > $$self{'length'}) |
|
246
|
0 |
0 |
if ($$self{'trimdir'} eq 'right') { } |
|
|
0 |
0 |
elsif ($$self{'trimdir'} eq 'left') { } |
|
341
|
0 |
17 |
unless length($tvalue) % $u_len == 0 |
|
381
|
0 |
0 |
unless ($$self{'is_bigendian'}) |
|
385
|
0 |
0 |
if ($$self{'is_signed'}) |
|
387
|
0 |
0 |
if ($first_char > 127) |
|
395
|
0 |
0 |
if ($is_negative) |
|
406
|
0 |
0 |
if ($$self{'is_signed'}) { } |
|
407
|
0 |
0 |
if ($number->sign eq '-') |
|
412
|
0 |
0 |
if ($number->sign eq '-') |
|
420
|
0 |
0 |
if ($is_negative) |
|
423
|
0 |
0 |
unless ($$self{'is_bigendian'}) |