| blib/lib/Astro/Coord/ECI/Utils.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 28 | 57 | 49.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 508 | 0 | 0 | 0 | defined $frac and $frac ne "." |
| 558 | 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;} | |
| 740 | 0 | 0 | 1 | defined $time and $time =~ / \S /msx |
| 1321 | 0 | 0 | 3 | @{$b;} == 3 and @{$c;} == 3 |
| 1478 | 23 | 23 | 5 | @zone and not $zone[0] |
| 1504 | 36 | 15 | 0 | defined $frc and $frc ne "" |
| line | l | !l | condition |
|---|---|---|---|
| 192 | 0 | 18 | 'Time::Local'->can('timegm_modern') || sub { my(@date) = @_; $date[5] = _year_adjust_greg($date[5]); return Time::Local::timegm(@date); } |
| 201 | 0 | 18 | 'Time::Local'->can('timelocal_modern') || sub { my(@date) = @_; $date[5] = _year_adjust_greg($date[5]); return Time::Local::timelocal(@date); } |
| 452 | 0 | 21 | $sec || 0 |
| 0 | 21 | $min || 0 | |
| 1 | 20 | $hr || 0 | |
| 455 | 0 | 1 | $sec || 0 |
| 0 | 1 | $min || 0 | |
| 1 | 0 | $hr || 0 | |
| 485 | 1 | 0 | $hr || 0 |
| 0 | 1 | $min || 0 | |
| 0 | 1 | $sec || 0 | |
| 689 | 46 | 375 | $limit ||= 1 |
| 848 | 0 | 1 | $intensity_to_mag_factor ||= "1.08573620475813" |
| 1477 | 0 | 51 | pop @date || 0 |
| 1480 | 2 | 3 | $min || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 445 | 0 | 0 | 21 | $mon < 1 or $mon > 12 |
| 1532 | 0 | 0 | 0 | $info->{'method'} || $sub |