| DateTime-Format-Epoch documentation | Contained in the DateTime-Format-Epoch distribution. |
DateTime::Format::Epoch::RataDie - Convert DateTimes to/from Rata Die
use DateTime::Format::Epoch::RataDie; my $dt = DateTime::Format::Epoch::RataDie->parse_datetime( $count ); DateTime::Format::Epoch::RataDie->format_datetime($dt); # $count my $formatter = DateTime::Format::Epoch::RataDie->new(); my $dt2 = $formatter->parse_datetime( $count ); $formatter->format_datetime($dt2);
This module can convert a DateTime object (or any object that can be converted to a DateTime object) to the Rata Die count. See DateTime::Format::Epoch::JD for a description.
Most of the methods are the same as those in DateTime::Format::Epoch. The only difference is the constructor.
Constructor of the formatter/parser object. It has no parameters.
Support for this module is provided via the datetime@perl.org email list. See http://lists.perl.org/ for more details.
Eugene van der Pijll <pijll@gmx.net>
Copyright (c) 2004 Eugene van der Pijll. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
datetime@perl.org mailing list
| DateTime-Format-Epoch documentation | Contained in the DateTime-Format-Epoch distribution. |
package DateTime::Format::Epoch::RataDie; use strict; use vars qw($VERSION @ISA); $VERSION = '0.13'; use DateTime; use DateTime::Format::Epoch; @ISA = qw/DateTime::Format::Epoch/; my $epoch = DateTime->new( year => 0, month => 12, day => 31 ); sub new { my $class = shift; return $class->SUPER::new( epoch => $epoch, unit => 1/86400, type => 'float', skip_leap_seconds => 1 ); } 1; __END__