Branch Coverage

blib/lib/Astro/Hipparcos.pm

Criterion	Covered	Total	%
branch	10	24	41.6

line	true	false	branch
19	0	1	unless defined $file
20	0	1	unless (-e $file)
21	0	0	unless open my $fh, '>', $file
24	0	1	unless open my $fh, '+<', $file
40	5	4	if (not $recno) { }
42	3	2	unless defined $line
47	0	4	if $line_end > $$self{'filesize'}
48	0	4	unless seek $fh, $line_start, 0
51	0	4	unless defined $line
61	0	0	unless ref $record and $record->isa('Astro::Hipparcos::Record')
66	0	0	unless seek $fh, 0, 2
69	0	0	unless seek $fh, $orig_pos, 0