line |
true |
false |
branch |
24
|
0 |
166 |
if $class ne 'Data::CompactReadonly::V0::Node' |
40
|
65769 |
7 |
if (defined $args{'data'}) { } |
43
|
40 |
65729 |
ref $args{'data'} ? : |
58
|
31 |
131275 |
ref $args{'data'} ? : |
|
131306 |
6 |
defined $args{'data'} ? : |
103
|
8 |
0 |
$int <= 18446744073709551615 ? : |
|
10 |
8 |
$int <= 4294967295 ? : |
|
13 |
18 |
$int <= 16777215 ? : |
|
18 |
31 |
$int <= 65535 ? : |
|
65713 |
49 |
$int <= 255 ? : |
117
|
1 |
0 |
$bytes == 4 ? : |
|
4 |
1 |
$bytes == 3 ? : |
|
8 |
5 |
$bytes == 2 ? : |
|
65685 |
13 |
$bytes == 1 ? : |
128
|
0 |
65658 |
unless $class->_sub_type_for_collection_of_length(length 'Data::CompactReadonly::V0::Text'->_text_to_bytes($data)) |
142
|
0 |
21 |
unless $class->_sub_type_for_collection_of_length(1 + $#{$data;}) |
146
|
0 |
19 |
unless $class->_sub_type_for_collection_of_length(scalar keys %{$data;}) |
161
|
48 |
0 |
!ref($data) ? : |
|
58 |
48 |
$data =~ /
^(-?) # don't want to numify 007
( 0 | [1-9][0-9]* )$ # 0, or 1-9 followed by any number of digits
/x ? : |
|
13 |
106 |
$data =~ /
^-? # don't want to numify 00.7 (but 0.07 is fine)
( 0 | [1-9][0-9]* ) # 0, or 1-9 followed by any number of digits
\. # decimal point
[0-9]*[1-9] # digits, must not end in zero
([eE][+-]?[0-9]+)?$ # exponent
/x ? : |
|
19 |
119 |
ref $data eq 'HASH' ? : |
|
21 |
138 |
ref $data eq 'ARRAY' ? : |
|
7 |
159 |
!defined($data) ? : |
163
|
1 |
25 |
$1 ? : |
|
1 |
7 |
$1 ? : |
|
1 |
7 |
$1 ? : |
|
1 |
7 |
$1 ? : |
|
1 |
7 |
$1 ? : |
|
8 |
0 |
$bytes < 9 ? : |
|
8 |
8 |
$bytes == 4 ? : |
|
8 |
16 |
$bytes == 3 ? : |
|
8 |
24 |
$bytes == 2 ? : |
|
26 |
32 |
$bytes == 1 ? : |
214
|
8 |
777 |
if $scalar_type eq 'Reserved' |
216
|
7 |
770 |
if $type ne 'Scalar' and $scalar_type =~ /^(Null|Float|Negative|Huge)/ |
227
|
62 |
874 |
unless ($type_name->VERSION) |
229
|
0 |
62 |
if $@ |
242
|
0 |
3013 |
if (not defined $chars_read) { } |
|
1 |
3012 |
elsif ($chars_read != $bytes) { } |
263
|
1700 |
197042 |
if ($#_ == 0) { } |
271
|
4 |
197038 |
if $args{'pointer'} >= 256 ** $args{'ptr_size'} |