use Date::Calendar::Maya;
use Date::Calendar::Aztec;
my Date                  $d-greg  .= new(2020, 6, 20);
my Date::Calendar::Aztec $d-aztec .= new-from-date($d-greg);
my Date::Calendar::Maya  $d-maya  .= new-from-date($d-greg);

say "{.tzolkin} {.haab} {.long-count}" with $d-maya;
# --> 12 Etznab 1 Tzec 13.0.7.10.18
$d-maya.locale = 'en';
say "{.tzolkin} {.haab}" with $d-maya;
# --> 12 Flint 1 Skull

say "{.tonalpohualli} {.xiuhpohualli}" with $d-aztec;
# --> 12 Tecpatl 20 Teotleco
$d-aztec.locale = 'en';
say "{.tonalpohualli} {.xiuhpohualli}" with $d-aztec;
# --> 12 Flint 20 God arrives

use Date::Calendar::Strftime;
use Date::Calendar::Gregorian;
use Date::Calendar::Aztec;
use Date::Calendar::Maya;

my Date::Calendar::Gregorian $d-gr;
my Date::Calendar::Aztec     $d-az;
my Date::Calendar::Maya      $d-ma;

$d-gr .= new('2024-11-13', daypart => before-sunrise());
$d-az .= new-from-date($d-gr);
$d-ma .= new-from-date($d-gr);
say $d-az.strftime("%V %A %e %B"), $d-ma.strftime(" / %F %V %A %e %B");
# -->  "7 Coatl 1 Tlacaxipehualiztli / 13.0.12.1.5 7 Chicchan 7 Ceh"

$d-gr .= new('2024-11-13', daypart => daylight());
$d-az .= new-from-date($d-gr);
$d-ma .= new-from-date($d-gr);
say $d-az.strftime("%V %A %e %B"), $d-ma.strftime(" / %F %V %A %e %B");
# -->  "7 Coatl 2 Tlacaxipehualiztli / 13.0.12.1.5 7 Chicchan 8 Ceh"

$d-gr .= new('2024-11-13', daypart => after-sunset());
$d-az .= new-from-date($d-gr);
$d-ma .= new-from-date($d-gr);
say $d-az.strftime("%V %A %e %B"), $d-ma.strftime(" / %F %V %A %e %B");
# -->  "8 Miquiztli 2 Tlacaxipehualiztli / 13.0.12.1.5 8 Cimi Ceh"