NAME

Astro::Montenbruck::Lunation - Lunar quarters.

SYNOPSIS

  use Astro::Montenbruck::Lunation qw/:all/;

  # find instant of New Moon closest to 2019 Aug, 12
  $jd = search_event([2019, 8, 12], $NEW_MOON)

DESCRIPTION

Searches lunar quarters. Algorythms are based on "Astronomical Algorythms" by Jean Meeus, Second Edition, Willmann-Bell, Inc., 1998.

EXPORT

CONSTANTS

QUARTERS

• $NEW_MOON

• $FIRST_QUARTER

• $FULL_MOON

• $LAST_QUARTER

MONTH

• @MONTH

Array of QUARTERS in proper order.

SUBROUTINES

search_event(date => $arr, quarter => $scalar)

Calculate instant of apparent lunar phase closest to the given date.

Named Arguments

• date — array of year (astronomical, zero-based), month [1..12] and day, [1..31].

• quarter — which quarter, one of: $NEW_MOON, $FIRST_QUARTER, $FULL_MOON or $LAST_QUARTER see "QUARTERS".

Returns

In scalar context returns Standard Julian day of the event, dynamic time.

In list context:

• Standard Julian day of the event, dynamic time.

• Argument of latitude, arc-degrees. This value is required for detecting elipses.

AUTHOR

Sergey Krushinsky, <krushi at cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2009-2021 by Sergey Krushinsky

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.