Branch Coverage

blib/lib/Parse/Win32Registry/WinNT/Value.pm
Criterion Covered Total %
branch 62 90 68.8


line true false branch
20 0 6124 unless defined $regfile
21 0 6124 unless defined $offset
39 1 6123 if ($bytes_read != 24)
54 6123 0 if ($length > 2147483647)
60 0 6123 if ($length < 24)
65 1 6122 if ($sig ne 'vk')
71 1 6121 if ($bytes_read != $name_length)
76 6015 106 if ($flags & 1) { }
87 3194 2927 if ($data_inline) { }
91 425 2769 if ($data_length > 4) { }
102 2927 0 if ($offset_to_data != 0 and $offset_to_data != 4294967295)
104 2926 1 if ($offset_to_data < $regfile->get_length - $data_length) { }
138 0 2926 if ($offset_to_data == 0 or $offset_to_data == 4294967295)
144 0 2926 if ($bytes_read != 4)
152 2926 0 if ($max_data_length > 2147483647)
160 0 2926 if ($data_length > $max_data_length) { }
162 0 0 if ($bytes_read != 8)
169 0 0 if ($sig ne 'db')
177 0 0 if ($bytes_read != $num_data_blocks * 4)
189 0 0 if ($bytes_read != 4)
194 0 0 if ($block_length > 2147483647)
198 0 0 if ($bytes_read != $block_length - 8)
204 0 0 if (length $data < $data_length)
213 0 2926 if ($bytes_read != $data_length)
227 11 281 unless defined $data
230 89 192 if ($type == 4) { }
44 148 elsif ($type == 5) { }
42 106 elsif ($type == 1 or $type == 2) { }
82 24 elsif ($type == 7) { }
231 64 25 if (length $data == 4) { }
240 24 20 if (length $data == 4) { }
251 22 20 if substr($data, -1, 1) eq "\000"
256 56 26 if substr($data, -1, 1) eq "\000"
257 30 52 if substr($data, -1, 1) eq "\000"
260 15 67 if @multi_sz == 0
261 32 50 wantarray ? :
272 1 52 $name eq '' ? :
282 8 45 if ($type == 1) { }
4 41 elsif ($type == 3) { }
16 25 elsif ($type == 4) { }
12 13 elsif ($type == 2 or $type == 7) { }
284 0 8 unless defined $data
294 10 6 defined $data ? :
302 0 12 $version == 4 ? :
322 0 0 if ($self->{'_data_inline'}) { }