view release on metacpan or  search on metacpan

lib/Acme/September/Eternal.pm  view on Meta::CPAN

    my $delta = $inmangler->calc($sepmangler, 1);
    my @deltafields = $delta->value();
    my $days = ordinate(int($deltafields[4] / 24) + 1);
    my $result = $inmangler->printf("%a, $days et. Sept. 1993 %H:%M:%S");

    return $result;
}

1;
__END__
# Below is stub documentation for your module. You'd better edit it!

=head1 NAME

Acme::September::Eternal - Calculate the "eternal september" date string

=head1 SYNOPSIS

  use Acme::September::Eternal;

  print eternalseptemberize('2019-10-18 10:28:00'), "\n";