| DateTime-Format-Epoch documentation | Contained in the DateTime-Format-Epoch distribution. |
DateTime::Format::Epoch::Unix - Convert DateTimes to/from Unix epoch seconds
use DateTime::Format::Epoch::Unix; my $dt = DateTime::Format::Epoch::Unix->parse_datetime( 1051488000 ); # 2003-04-28T00:00:00 DateTime::Format::Epoch::Unix->format_datetime($dt); # 1051488000 my $formatter = DateTime::Format::Epoch::Unix->new(); my $dt2 = $formatter->parse_datetime( 1051488000 ); $formatter->format_datetime($dt2);
This module can convert a DateTime object (or any object that can be converted to a DateTime object) to the number of seconds since the Unix epoch.
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) 2003 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::Unix; 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 => 1970, month => 1, day => 1 ); sub new { my $class = shift; return $class->SUPER::new( epoch => $epoch, unit => 'seconds', type => 'int', skip_leap_seconds => 1 ); } 1; __END__