| line |
true |
false |
branch |
|
46
|
1 |
35 |
unless ref $sexp eq 'ARRAY' |
|
50
|
1 |
34 |
unless &scalarp($type) |
|
52
|
8 |
26 |
if (@addrs > 1) { } |
|
60
|
4 |
30 |
if ref $addr eq 'ARRAY' |
|
61
|
1 |
33 |
unless &scalarp($addr) |
|
63
|
1 |
32 |
unless &looks_like_number($addr) |
|
65
|
30 |
2 |
unless (&looks_like_number($type)) |
|
66
|
1 |
29 |
unless exists $TYPES{$type} |
|
70
|
2 |
29 |
if $addr < 0 |
|
71
|
1 |
30 |
if $type >= 1 << $self->{'type_bits'} |
|
72
|
1 |
29 |
if $addr >= 1 << $self->{'addr_bits'} |
|
74
|
13 |
16 |
unless ($location) |
|
89
|
9 |
15 |
if $string =~ /^\s*$/su |
|
120
|
1 |
4 |
if $self->{'addr_bits'} + $self->{'type_bits'} > 16 |
|
123
|
0 |
4 |
unless print $fh pack('n', $length) |
|
125
|
0 |
41 |
unless print $fh pack('n', $_) |
|
139
|
4 |
37 |
if ($index == 4) { } |
|
142
|
27 |
10 |
$val ? : |
|
148
|
38 |
3 |
if defined $comment |
|
149
|
0 |
41 |
unless say $fh $string |