Branch Coverage

blib/lib/Data/CompactReadonly/V0/Node.pm
Criterion Covered Total %
branch 72 82 87.8


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'}