| line |
true |
false |
branch |
|
18
|
1 |
21 |
unless my $filename = shift() |
|
20
|
1 |
20 |
unless open my $fh, '<', $filename |
|
30
|
1 |
19 |
if ($bytes_read != 32) |
|
39
|
1 |
18 |
if ($creg_sig ne 'CREG') |
|
54
|
2 |
16 |
unless defined $rgkn_block |
|
85
|
0 |
2 |
unless defined $root_key |
|
87
|
2 |
0 |
unless (defined $fake_root) |
|
91
|
1 |
1 |
if ($filename =~ /USER/i) { } |
|
|
1 |
0 |
elsif ($filename =~ /SYSTEM/i) { } |
|
122
|
88 |
0 |
if ($rgdb_block_num == $key_block_num) |
|
153
|
283 |
18 |
if (defined $self->{'_rgkn'}) |
|
174
|
5 |
33 |
if ($offset_to_next_rgdb_block > $end_of_file) |
|
177
|
13 |
20 |
if ($rgdb_block_num >= $num_rgdb_blocks) |
|
181
|
20 |
0 |
if (my $rgdb_block = 'Parse::Win32Registry::Win95::RGDB'->new($self, $offset_to_next_rgdb_block)) |
|
184
|
0 |
20 |
unless $rgdb_block->get_length > 0 |
|
197
|
2 |
4 |
unless (defined $rgdb_iter) |
|
226
|
0 |
18 |
unless defined $regfile |
|
227
|
0 |
18 |
unless defined $offset |
|
238
|
1 |
17 |
if ($bytes_read != 32) |
|
247
|
1 |
16 |
if ($sig ne 'RGKN') |
|
284
|
2 |
0 |
if (defined $root_key) { } |
|
307
|
0 |
20 |
unless defined $regfile |
|
308
|
0 |
20 |
unless defined $offset |
|
318
|
0 |
20 |
if ($bytes_read != 32) |
|
325
|
0 |
20 |
if ($sig ne 'RGDB') |
|
352
|
20 |
92 |
if ($offset_to_next_rgdb_key >= $end_of_rgdb_block) |
|
355
|
92 |
0 |
if (my $rgdb_key = 'Parse::Win32Registry::Win95::RGDBKey'->new($regfile, $offset_to_next_rgdb_key)) |
|
358
|
0 |
92 |
unless $rgdb_key->get_length > 0 |
|
362
|
0 |
92 |
if ($offset_to_next_rgdb_key > $end_of_rgdb_block) |
|
377
|
12 |
2 |
if (defined $value_iter) |
|
379
|
8 |
4 |
if (defined $value) |
|
385
|
2 |
4 |
unless (defined $key) |
|
410
|
0 |
92 |
unless defined $regfile |
|
411
|
0 |
92 |
unless defined $offset |
|
428
|
0 |
92 |
if ($bytes_read != 20) |
|
439
|
0 |
92 |
if ($bytes_read != $name_length) |
|
448
|
0 |
92 |
if ($key_id == 4294967295 or $length_used == 4294967295 or $header_length > $length) |
|
504
|
119 |
25 |
if ($num_values_remaining > 0) |
|
512
|
0 |
144 |
if ($self->{'_id'} == 4294967295) |
|
517
|
134 |
3187 |
if ($num_values_remaining-- <= 0) |
|
520
|
0 |
3187 |
if ($offset_to_next_rgdb_value == 4294967295) |
|
523
|
0 |
3187 |
if ($offset_to_next_rgdb_value > $end_of_rgdb_key) |
|
526
|
3187 |
0 |
if (my $value = 'Parse::Win32Registry::Win95::Value'->new($regfile, $offset_to_next_rgdb_value)) { } |
|
529
|
0 |
3187 |
unless $value->get_length > 0 |