| line |
true |
false |
branch |
|
25
|
0 |
187 |
if $class ne __PACKAGE__ |
|
41
|
14 |
65792 |
if (bool_supported() and is_bool($args{'data'})) { } |
|
|
65785 |
7 |
elsif (defined $args{'data'}) { } |
|
44
|
7 |
7 |
$args{'data'} ? : |
|
48
|
40 |
65745 |
ref $args{'data'} ? : |
|
60
|
18 |
131321 |
if (bool_supported() and is_bool($args{'data'})) { } |
|
|
131315 |
6 |
elsif (defined $args{'data'}) { } |
|
64
|
9 |
9 |
$args{'data'} ? : |
|
69
|
31 |
131284 |
ref $args{'data'} ? : |
|
116
|
8 |
0 |
$int <= 18446744073709551615 ? : |
|
|
10 |
8 |
$int <= 4294967295 ? : |
|
|
13 |
18 |
$int <= 16777215 ? : |
|
|
18 |
31 |
$int <= 65535 ? : |
|
|
65727 |
49 |
$int <= 255 ? : |
|
130
|
1 |
0 |
$bytes == 4 ? : |
|
|
4 |
1 |
$bytes == 3 ? : |
|
|
8 |
5 |
$bytes == 2 ? : |
|
|
65703 |
13 |
$bytes == 1 ? : |
|
141
|
0 |
65676 |
unless $class->_sub_type_for_collection_of_length(length "Data::CompactReadonly::V0::Text"->_text_to_bytes($data)) |
|
155
|
0 |
21 |
unless $class->_sub_type_for_collection_of_length(1 + $#{$data;}) |
|
159
|
0 |
19 |
unless $class->_sub_type_for_collection_of_length(scalar keys %{$data;}) |
|
163
|
7 |
7 |
$data ? : |
|
|
57 |
0 |
!ref($data) ? : |
|
|
15 |
57 |
is_number($data) ? : |
|
|
54 |
72 |
is_integer($data) ? : |
|
|
19 |
126 |
ref $data eq 'HASH' ? : |
|
|
21 |
145 |
ref $data eq 'ARRAY' ? : |
|
|
14 |
166 |
bool_supported() && is_bool($data) ? : |
|
|
7 |
180 |
!defined($data) ? : |
|
164
|
5 |
49 |
$data < 0 ? : |
|
166
|
8 |
0 |
$bytes < 9 ? : |
|
|
8 |
8 |
$bytes == 4 ? : |
|
|
8 |
16 |
$bytes == 3 ? : |
|
|
8 |
24 |
$bytes == 2 ? : |
|
|
22 |
32 |
if ($bytes == 1) { } |
|
221
|
4 |
860 |
if $scalar_type eq "Reserved" |
|
223
|
9 |
851 |
if $type ne "Scalar" and $scalar_type =~ /^(Null|Float64|Negative|Huge|True|False)/ |
|
234
|
68 |
970 |
unless ($type_name->VERSION) |
|
236
|
0 |
68 |
if $@ |
|
249
|
0 |
3306 |
if (not defined $chars_read) { } |
|
|
1 |
3305 |
elsif ($chars_read != $bytes) { } |
|
270
|
1864 |
197090 |
if ($#_ == 0) { } |
|
278
|
4 |
197086 |
if $args{'pointer'} >= 256 ** $args{'ptr_size'} |