Branch Coverage

blib/lib/Date/ManipX/Almanac/Lang.pm
Criterion Covered Total %
branch 25 34 73.5


line true false branch
33 0 1 unless 'ARRAY' eq ref $arg{'sky'}
41 0 1 if @{$arg{'sky'};} and $sta = $arg{'sky'}[0]->get('station') and ($sta->geodetic)[0] < 0
136 2 10 if $body->isa($_->[0])
202 7 14 unless $interp_event and $capture{$name}
204 0 14 unless my $evt = $$interp_event{$capture{$name}}
208 6 8 if (defined $capture{'detail'})
210 0 6 unless defined($det = $$det{$capture{'detail'}})
214 1 13 if (defined $capture{'qual'})
215 0 1 unless $qual
218 0 1 unless defined($qual = $$qual{$capture{'qual'}})
244 0 14 unless $self->{'captured_event'}
399 0 14 unless wantarray
401 1 13 unless ($self->{'_sky'})
407 0 3 unless my($body_re, $specific_re, $interp_specific) = $self->__body_re($body)
410 2 1 $specific_re ? :
425 7 14 unless $match =~ s/ $re /$self->__event_capture($body, @se);/eimsx
430 2 12 unless $match =~ / \S /msx