| 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 |