line |
true |
false |
branch |
121
|
5 |
5 |
if $l->{'error'} |
127
|
0 |
40 |
if (@_ and @_ % 2) |
139
|
10 |
0 |
unless ref $self |
143
|
5 |
5 |
if $self->{'error'} |
150
|
0 |
10 |
unless ref $self |
154
|
5 |
5 |
if $self->{'error'} |
160
|
0 |
40 |
unless ref $self |
172
|
0 |
40 |
unless (defined $filename) |
176
|
8 |
32 |
unless (-f $filename) |
180
|
32 |
0 |
if (open my $in, '<', $filename) { } |
190
|
12 |
20 |
if ($header ne '4c') |
205
|
40 |
100 |
if ($flag_bit eq '1') |
206
|
40 |
0 |
if ($flag_cnt >= 0 and $flag_cnt <= 6) |
216
|
20 |
0 |
if ($flag_bits[1] == 1) |
221
|
28 |
232 |
if $file_bit |
296
|
8 |
12 |
if ($vol_flags =~ /10/) |
302
|
4 |
16 |
if ($vol_flags =~ /01/) |
308
|
8 |
12 |
if ($vol_flags =~ /11/) |
316
|
8 |
12 |
if ($vol_bits[0] == 1 and $vol_bits[1] == 0) |
362
|
2 |
6 |
if ($resolve) |
370
|
4 |
14 |
if ($vol_bits[0] == 0 and $vol_bits[1] == 1) |
379
|
0 |
4 |
if ($net_share_name_loc ne '20') |
389
|
1 |
3 |
if ($resolve) |
399
|
3 |
0 |
if ($net_share_mdrive ne '0') |
406
|
8 |
9 |
if ($vol_bits[0] == 1 and $vol_bits[1] == 1) |
414
|
200 |
8 |
if ($net_share_name_loc ne '20') |
427
|
0 |
8 |
if ($net_share_name_loc ne '20') |
437
|
2 |
6 |
if ($resolve) |
447
|
0 |
6 |
if ($net_share_mdrive ne '0') |
467
|
0 |
15 |
if ($flag_bits[2] eq '1') |
474
|
0 |
15 |
if ($flag_bits[3] eq '1') |
480
|
6 |
9 |
if ($flag_bits[4] eq '1') |
486
|
0 |
15 |
if ($flag_bits[5] eq '1') |
493
|
0 |
15 |
if ($flag_bits[6] eq '1') |
505
|
15 |
6 |
if ($tmp_len ne '0') { } |
520
|
0 |
781 |
unless seek $self->{'_fh'}, $loc, 0 |
530
|
0 |
23 |
unless seek $self->{'_fh'}, $loc, 0 |
540
|
0 |
60 |
unless seek $self->{'_fh'}, $loc, 0 |
563
|
589 |
60 |
length $HEXDATE < 16 ? : |
581
|
0 |
38 |
unless seek $self->{'_fh'}, $loc, 0 |
584
|
32 |
6 |
if $term_data |