| line |
true |
false |
branch |
|
30
|
2 |
95 |
unless defined $value |
|
33
|
13 |
82 |
if ($type eq 'ARRAY') { } |
|
|
2 |
80 |
elsif ($type eq 'HASH') { } |
|
|
1 |
79 |
elsif ($type eq 'Regexp') { } |
|
|
29 |
50 |
elsif ($type eq 'BERT::Atom') { } |
|
|
14 |
36 |
elsif ($type eq 'BERT::Tuple') { } |
|
|
2 |
34 |
elsif ($type eq 'BERT::Boolean') { } |
|
|
2 |
32 |
elsif ($type eq 'BERT::Dict') { } |
|
|
1 |
31 |
elsif ($type eq 'BERT::Time') { } |
|
|
4 |
27 |
elsif ($type eq 'Math::BigInt') { } |
|
|
0 |
27 |
elsif ($type) { } |
|
46
|
15 |
12 |
if ($value =~ /^(?:(?:[+-]?)(?:[0123456789]+))$/) { } |
|
|
2 |
10 |
elsif ($value =~ /^(?:(?i)(?:[+-]?)(?:(?=[.]?[0123456789])(?:[0123456789]*)(?:(?:[.])(?:[0123456789]{0,}))?)(?:(?:[E])(?:(?:[+-]?)(?:[0123456789]+))|))$/) { } |
|
63
|
9 |
8 |
if ($item =~ /^\d+$/) { } |
|
64
|
0 |
9 |
if 0 > $item or $item > 255 |
|
66
|
7 |
1 |
if length $item != 1 |
|
76
|
3 |
10 |
unless @value |
|
77
|
3 |
7 |
if $self->is_erl_string(\@value) |
|
86
|
52 |
21 |
if (@{$value;}) { } |
|
98
|
2 |
2 |
ref $value eq 'BERT::Dict' ? : |
|
116
|
1 |
0 |
if (/i/) { } |
|
|
0 |
0 |
elsif (/s/) { } |
|
|
0 |
0 |
elsif (/x/) { } |
|
|
0 |
0 |
elsif (/m/) { } |
|
135
|
14 |
0 |
if @array < 256 |
|
147
|
1 |
1 |
$value ? : |
|
166
|
8 |
11 |
if 0 <= $value and $value <= 255 |
|
171
|
7 |
4 |
if -134217728 <= $value and $value <= 134217727 |
|
174
|
1 |
3 |
$value < 0 ? : |
|
183
|
3 |
1 |
if @bytes < 256 |