| line |
true |
false |
branch |
|
38
|
2 |
90 |
if ($class = ref $self) { } |
|
50
|
1 |
98 |
unless my $code = $clone->can($name) |
|
59
|
3 |
3 |
if (@args) { } |
|
61
|
1 |
2 |
if ($interval <= 0) { } |
|
|
1 |
1 |
elsif ($interval < 1) { } |
|
72
|
2 |
1 |
unless $interval & 1024 |
|
185
|
1 |
11 |
unless my $dcdr = $decoder{$method} |
|
187
|
2 |
9 |
unless my $type = ref $dcdr |
|
189
|
7 |
2 |
if 'ARRAY' eq $type |
|
191
|
2 |
0 |
if 'CODE' eq $type |
|
204
|
1 |
6 |
if @args |
|
207
|
2 |
4 |
unless defined(my $prior = $self->prior_record) |
|
212
|
0 |
4 |
if $self->enforce_validity and not $self->is_doppler_valid && $prior->is_doppler_valid |
|
218
|
1 |
3 |
if ($deltat < 0) |
|
222
|
0 |
4 |
if $count < 0 |
|
233
|
5 |
29 |
if (@args) { } |
|
247
|
2 |
4 |
if (@args) { } |
|
253
|
2 |
0 |
$self->transmit_frequency >= 2000000000 ? : |
|
|
2 |
2 |
defined $self->{'factor_K'} ? : |
|
264
|
2 |
7 |
if (@args) { } |
|
270
|
0 |
4 |
$self->transmit_frequency >= 12000000000 ? : |
|
|
3 |
4 |
defined $self->{'factor_M'} ? : |
|
282
|
0 |
1 |
if (@args) { } |
|
336
|
1 |
11 |
if (@args) { } |
|
346
|
11 |
0 |
if $yr < 70 |
|
354
|
7 |
6 |
if (@args) { } |
|
356
|
1 |
6 |
if defined $prior and not 'Astro::UTDF'->_instance($prior) |
|
368
|
1 |
2 |
if (@args) { } |
|
371
|
1 |
1 |
unless defined(my $range_delay = $self->range_delay) |
|
385
|
1 |
2 |
if @args |
|
388
|
1 |
1 |
if (defined(my $shift = $self->doppler_shift)) { } |
|
425
|
46 |
43 |
if (@args) { } |
|
427
|
1 |
45 |
unless length $raw_record == 75 |
|
448
|
90 |
0 |
wantarray ? : |
|
469
|
3 |
2 |
if @in_args % 2 |
|
473
|
4 |
2 |
if ($my_arg{$name}) { } |
|
479
|
1 |
4 |
unless $arg{'file'} |
|
483
|
4 |
0 |
unless (&openhandle($fh)) |
|
485
|
1 |
3 |
unless -e $fn |
|
486
|
1 |
2 |
unless -f _ |
|
487
|
0 |
2 |
unless $fh = 'IO::File'->new($fn, '<') |
|
495
|
2 |
2 |
@rslt ? : |
|
519
|
1 |
3 |
if (@args) { } |
|
545
|
2 |
9 |
if (@args) { } |
|
576
|
19 |
72 |
if (@args) { } |
|
593
|
3 |
16 |
if (@args) { } |
|
601
|
2 |
14 |
if $validator and $self->enforce_validity and not $self->$validator |
|
620
|
2 |
6 |
if (@args) { } |
|
626
|
2 |
4 |
if $self->enforce_validity and not $self->is_angle_valid |
|
630
|
0 |
4 |
if $angle >= $upper |
|
643
|
12 |
31 |
if (@args) { } |
|
644
|
6 |
6 |
if ($args[0]) { } |
|
651
|
17 |
14 |
$self->{$attr} & $mask ? : |
|
664
|
7 |
20 |
if (@args) { } |
|
679
|
0 |
4 |
if ref $class |
|
681
|
1 |
3 |
unless ref $obj |
|
683
|
0 |
3 |
unless &blessed($obj) |
|
685
|
0 |
3 |
unless $obj->isa($class) |