| line |
true |
false |
branch |
|
27
|
5 |
0 |
if defined $attrs{'block_size'} |
|
30
|
0 |
11 |
unless my $m = $self->can($_) |
|
38
|
5 |
26 |
if (@v) |
|
39
|
0 |
5 |
unless &isa_pow2($v[0]) |
|
48
|
0 |
0 |
if (@v) |
|
49
|
0 |
0 |
if $v[0] & $self->block_size - 1 |
|
57
|
2 |
218 |
if (@v) |
|
58
|
0 |
2 |
unless &isa_pow2($v[0]) and $v[0] >= 128 |
|
66
|
5 |
23 |
if (@v) |
|
67
|
0 |
5 |
unless &isa_array($v[0]) |
|
74
|
2 |
7 |
if (@_ > 1) { } |
|
77
|
5 |
15 |
if (@_ > 1) { } |
|
78
|
6 |
16 |
if (@_ > 1) { } |
|
79
|
4 |
29 |
if (@_ > 1) { } |
|
80
|
4 |
21 |
if (@_ > 1) { } |
|
81
|
4 |
36 |
if (@_ > 1) { } |
|
82
|
4 |
26 |
if (@_ > 1) { } |
|
92
|
9 |
0 |
if (open my $fh, "<:raw", $dev) |
|
93
|
9 |
0 |
if (read($fh, my $bytes, 16) == 16) |
|
101
|
0 |
9 |
unless @bytes |
|
120
|
5 |
0 |
if $entries_per_block > 1 |
|
138
|
3 |
2 |
if $block_align > 1 |
|
140
|
5 |
0 |
if (defined $_->start_lba) { } |
|
141
|
0 |
5 |
if $_->start_lba < $self->first_block |
|
146
|
0 |
5 |
unless (defined $_->end_lba) |
|
148
|
0 |
0 |
if ($_->data) { } |
|
149
|
0 |
0 |
builtin::blessed($_->data) ? : |
|
158
|
5 |
0 |
if $_->end_lba >= $lba_pos |
|
168
|
1 |
4 |
if ($end_lba <= $min_end_lba) { } |
|
184
|
0 |
5 |
unless $self->entry_table_lba + $n_table_blocks <= $self->first_block |
|
187
|
0 |
5 |
unless $self->last_block >= $self->first_block |
|
195
|
0 |
5 |
unless $self->last_block < $self->backup_table_lba |
|
198
|
0 |
5 |
unless $self->backup_table_lba + $n_table_blocks <= $self->backup_header_lba |
|
204
|
0 |
5 |
unless &isa_handle($fh) |
|
209
|
5 |
0 |
unless defined $self->guid |
|
216
|
1 |
4 |
if ($size < $need_size) { } |
|
217
|
0 |
1 |
unless truncate $fh, $need_size |
|
281
|
2048 |
2048 |
$crc & 1 ? : |
|
295
|
0 |
20 |
unless my(@ints) = lc($guid) =~ /^([0-9a-f]{8})-([0-9a-f]{4})-([0-9a-f]{4})-([0-9a-f]{4})-([0-9a-f]{4})([0-9a-f]{8})\z/u |
|
302
|
195 |
5 |
unless defined $part |
|
304
|
0 |
5 |
unless defined $part->start_lba |
|
305
|
0 |
5 |
unless defined $part->end_lba |
|
306
|
0 |
5 |
unless defined $part->type |
|
307
|
4 |
1 |
unless defined $part->guid |
|
310
|
0 |
5 |
if length $name_utf16 > $name_max |
|
319
|
5 |
5 |
$is_backup ? : |
|
320
|
5 |
5 |
$is_backup ? : |
|
321
|
5 |
5 |
$is_backup ? : |