| blib/lib/Astro/Coord/ECI/Utils.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 29 | 62 | 46.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 525 | 0 | 0 | 0 | defined $frac and $frac ne "." |
| 575 | 0 | 0 | 1 | "ARRAY" eq ref $x and "ARRAY" eq ref $y |
| 0 | 0 | 1 | "ARRAY" eq ref $x and "ARRAY" eq ref $y and @{$x;} == @{$y;} | |
| 759 | 0 | 0 | 1 | defined $time and $time =~ / \S /msx |
| 1378 | 0 | 0 | 3 | @{$b;} == 3 and @{$c;} == 3 |
| 1535 | 23 | 23 | 5 | @zone and not $zone[0] |
| 1561 | 36 | 15 | 0 | defined $frc and $frc ne "" |
| 1599 | 0 | 0 | 18 | length($percent) % 2 and $mung{$fmt} |
| line | l | !l | condition |
|---|---|---|---|
| 470 | 0 | 21 | $sec || 0 |
| 0 | 21 | $min || 0 | |
| 1 | 20 | $hr || 0 | |
| 473 | 0 | 1 | $sec || 0 |
| 0 | 1 | $min || 0 | |
| 1 | 0 | $hr || 0 | |
| 502 | 1 | 0 | $hr || 0 |
| 0 | 1 | $min || 0 | |
| 0 | 1 | $sec || 0 | |
| 708 | 46 | 375 | $limit ||= 1 |
| 871 | 0 | 1 | $intensity_to_mag_factor ||= "1.08573620475813" |
| 1534 | 0 | 51 | pop @date || 0 |
| 1537 | 2 | 3 | $min || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 206 | 18 | 0 | 0 | 'Time::Local'->can('timegm_modern') || sub { my(@date) = @_; $date[5] = _year_adjust_greg($date[5]); return Time::Local::timegm(@date); } |
| 215 | 18 | 0 | 0 | 'Time::Local'->can('timelocal_modern') || sub { my(@date) = @_; $date[5] = _year_adjust_greg($date[5]); return Time::Local::timelocal(@date); } |
| 463 | 0 | 0 | 21 | $mon < 1 or $mon > 12 |
| 1642 | 0 | 0 | 0 | $info->{'method'} || $sub |