Branch Coverage

blib/lib/File/Mork.pm
Criterion Covered Total %
branch 45 68 66.1


line true false branch
72 1 1 unless ($self->parse($file))
123 0 2 $$self{'age'} ? :
140 1 1 unless (open IN, $file)
171 1 9 if ($body =~ /\G$key_table_re/cg) { }
2 7 elsif ($body =~ /\G$value_table_re/cog) { }
2 5 elsif ($body =~ /\G$table_re/cog) { }
0 5 elsif ($body =~ /\G$row_re/cog) { }
2 3 elsif ($body =~ /\G$section_begin_re/cog) { }
2 1 elsif ($section_end_re and $body =~ /\G$section_end_re/cg) { }
1 0 elsif ($body =~ /\G$top_level_comment/cog) { }
172 0 1 unless $self->parse_key_table($1)
176 0 2 unless $self->parse_value_table($1)
180 0 2 unless $self->parse_table($1)
184 0 0 unless $self->parse_table($1)
206 0 1 if ($$self{'section_end_re'})
260 0 7 unless scalar @cells
266 0 7 $$self{'row_hash'}{$id} ? :
271 0 35 unless $_
279 0 35 unless defined $vali
284 0 35 unless defined $key
286 5 30 $which eq '=' ? :
290 12 23 if ($key eq 'LastVisitDate' or $key eq 'FirstVisitDate')
299 0 7 if ($$self{'age'} and ($hash{'LastVisitDate'} || $$self{'since'}) < $$self{'since'})
319 0 2 unless $val_part
327 29 29 unless /[^\s]/s
330 0 29 unless (defined $val)
336 1 28 if (not defined $$self{'byte_order'} and $val =~ /(?:BE|LE)/)
342 6 23 if ($val =~ /\$/)
343 6 0 if (defined $$self{'byte_order'}) { }
377 13 13 unless /[^\s]/s
379 0 13 unless defined $val
411 51 0 if $$self{'verbose'} < $level
412 0 0 $message eq '' ? :
586 0 14 if @_