line |
true |
false |
branch |
117
|
5 |
5 |
if $l->{'error'} |
123
|
0 |
40 |
if (@_ and @_ % 2) |
135
|
10 |
0 |
unless ref $self |
139
|
5 |
5 |
if $self->{'error'} |
146
|
0 |
10 |
unless ref $self |
150
|
5 |
5 |
if $self->{'error'} |
156
|
0 |
40 |
unless ref $self |
168
|
0 |
40 |
unless (defined $filename) |
172
|
8 |
32 |
unless (-f $filename) |
176
|
32 |
0 |
if (open my $in, '<', $filename) { } |
186
|
12 |
20 |
if ($header ne '4c') |
201
|
40 |
100 |
if ($flag_bit eq '1') |
202
|
40 |
0 |
if ($flag_cnt >= 0 and $flag_cnt <= 6) |
212
|
20 |
0 |
if ($flag_bits[1] == 1) |
217
|
28 |
232 |
if $file_bit |
292
|
8 |
12 |
if ($vol_flags =~ /10/) |
298
|
4 |
16 |
if ($vol_flags =~ /01/) |
304
|
8 |
12 |
if ($vol_flags =~ /11/) |
312
|
8 |
12 |
if ($vol_bits[0] == 1 and $vol_bits[1] == 0) |
358
|
2 |
6 |
if ($resolve) |
366
|
4 |
14 |
if ($vol_bits[0] == 0 and $vol_bits[1] == 1) |
375
|
0 |
4 |
if ($net_share_name_loc ne '20') |
385
|
1 |
3 |
if ($resolve) |
395
|
3 |
0 |
if ($net_share_mdrive ne '0') |
402
|
8 |
9 |
if ($vol_bits[0] == 1 and $vol_bits[1] == 1) |
410
|
200 |
8 |
if ($net_share_name_loc ne '20') |
423
|
0 |
8 |
if ($net_share_name_loc ne '20') |
433
|
2 |
6 |
if ($resolve) |
443
|
0 |
6 |
if ($net_share_mdrive ne '0') |
463
|
0 |
15 |
if ($flag_bits[2] eq '1') |
470
|
0 |
15 |
if ($flag_bits[3] eq '1') |
476
|
6 |
9 |
if ($flag_bits[4] eq '1') |
482
|
0 |
15 |
if ($flag_bits[5] eq '1') |
489
|
0 |
15 |
if ($flag_bits[6] eq '1') |
501
|
15 |
6 |
if ($tmp_len ne '0') { } |
516
|
0 |
781 |
unless seek $self->{'_fh'}, $loc, 0 |
526
|
0 |
23 |
unless seek $self->{'_fh'}, $loc, 0 |
536
|
0 |
60 |
unless seek $self->{'_fh'}, $loc, 0 |
559
|
589 |
60 |
length $HEXDATE < 16 ? : |
577
|
0 |
38 |
unless seek $self->{'_fh'}, $loc, 0 |
580
|
32 |
6 |
if $term_data |