Branch Coverage

blib/lib/Parse/Lnk.pm
Criterion Covered Total %
branch 62 82 75.6


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