DateTime-Format-DB2-0.05/0000755000175100001440000000000010554507757014500 5ustar castawayusersDateTime-Format-DB2-0.05/t/0000755000175100001440000000000010554507757014743 5ustar castawayusersDateTime-Format-DB2-0.05/t/02parse.t0000755000175100001440000000203310554507563016400 0ustar castawayusersuse strict; use Test::More tests => 21; use DateTime::Format::DB2; my $db2 = 'DateTime::Format::DB2'; { my $dt = $db2->parse_date( '2003-02-15' ); is( $dt->year, 2003 ); is( $dt->month, 2 ); is( $dt->day, 15 ); } # { # my $dt = $db2->parse_time( '10:09:08' ); # is( $dt->hour, 10 ); # is( $dt->minute, 9 ); # is( $dt->second, 8 ); # } { my $dt = $db2->parse_timestamp( '2003-02-15-10.09.08.200000' ); is( $dt->year, 2003 ); is( $dt->month, 2 ); is( $dt->day, 15 ); is( $dt->hour, 10 ); is( $dt->minute, 9 ); is( $dt->second, 8 ); } { my $dt = $db2->parse_timestamp( '2003-02-15 10:09:08.200000' ); is( $dt->year, 2003 ); is( $dt->month, 2 ); is( $dt->day, 15 ); is( $dt->hour, 10 ); is( $dt->minute, 9 ); is( $dt->second, 8 ); } { my $dt = $db2->parse_datetime( '2003-02-15 10:09:08.200000' ); is( $dt->year, 2003 ); is( $dt->month, 2 ); is( $dt->day, 15 ); is( $dt->hour, 10 ); is( $dt->minute, 9 ); is( $dt->second, 8 ); } DateTime-Format-DB2-0.05/t/00load.t0000755000175100001440000000011410347637427016204 0ustar castawayusersuse strict; use Test::More tests => 1; use_ok( 'DateTime::Format::DB2' ); DateTime-Format-DB2-0.05/t/01format.t0000755000175100001440000000115410347655755016567 0ustar castawayusersuse strict; use Test::More tests => 3; use DateTime::Format::DB2; my $mysql = 'DateTime::Format::DB2'; my $dt = DateTime->new( year => 2000, month => 5, day => 6, hour => 15, minute => 23, second => 44, time_zone => 'UTC', ); { is( $mysql->format_date($dt), '2000-05-06', 'format_date' ); is( $mysql->format_timestamp($dt), '2000-05-06-15.23.44', 'format_datetime' ); is( $mysql->format_time($dt), '15:23:44', 'format_time' ); } DateTime-Format-DB2-0.05/lib/0000755000175100001440000000000010554507757015246 5ustar castawayusersDateTime-Format-DB2-0.05/lib/DateTime/0000755000175100001440000000000010554507757016742 5ustar castawayusersDateTime-Format-DB2-0.05/lib/DateTime/Format/0000755000175100001440000000000010554507757020172 5ustar castawayusersDateTime-Format-DB2-0.05/lib/DateTime/Format/DB2.pm0000644000175100001440000000760310554507464021100 0ustar castawayuserspackage DateTime::Format::DB2; use strict; use vars qw ($VERSION); $VERSION = '0.05'; use DateTime; use DateTime::Format::Builder ( parsers => # 12/13/2005 { parse_date => { params => [ qw( year month day ) ], regex => qr!^(\d\d\d\d)-(\d\d)-(\d\d)$!, }, # 12:17:46 parse_time => { params => [ qw( hour minute second ) ], regex => qr!^(\d\d):(\d\d):(\d\d)$!, extra => { time_zone => 'floating' }, }, # 2005-12-13-12.19.07.276270 parse_timestamp => [ { params => [ qw( year month day hour minute second nanosecond) ], regex => qr/^(\d\d\d\d)-(\d\d)-(\d\d)-(\d\d)\.(\d\d)\.(\d\d)(\.\d+)?$/, extra => { time_zone => 'floating' }, postprocess => \&_fix_nano }, { params => [ qw( year month day hour minute second nanosecond) ], regex => qr/^(\d\d\d\d)-(\d\d)-(\d\d)\s(\d\d):(\d\d):(\d\d)(\.\d+)?$/, extra => { time_zone => 'floating' }, postprocess => \&_fix_nano }, ], parse_datetime => [ { params => [ qw( year month day hour minute second nanosecond) ], regex => qr/^(\d\d\d\d)-(\d\d)-(\d\d)-(\d\d)\.(\d\d)\.(\d\d)(\.\d+)?$/, extra => { time_zone => 'floating' }, postprocess => \&_fix_nano }, { params => [ qw( year month day hour minute second nanosecond) ], regex => qr/^(\d\d\d\d)-(\d\d)-(\d\d)\s(\d\d):(\d\d):(\d\d)(\.\d+)?$/, extra => { time_zone => 'floating' }, postprocess => \&_fix_nano }, ], }, ); sub _fix_nano { my %p = @_; $p{parsed}{nanosecond} *= 10**9; return 1; } sub format_date { my ( $self, $dt ) = @_; return $dt->ymd('-'); } sub format_time { my ( $self, $dt ) = @_; return $dt->hms(':'); } sub format_timestamp { my ( $self, $dt ) = @_; return $self->format_date($dt) . '-' . $dt->hms('.'); } *format_datetime = *format_timestamp; 1; __END__ =head1 NAME DateTime::Format::DB2 - Parse and format DB2 dates and times =head1 SYNOPSIS use DateTime::Format::DB2; my $dt = DateTime::Format::DB2->parse_timestamp( '2003-01-16-23.12.01.300000' ); # 2003-01-16-23.12.01.300000 DateTime::Format::DB2->format_timestamp($dt); =head1 DESCRIPTION This module understands the formats used by DB2 for its DATE, TIME, and TIMESTAMP data types. It can be used to parse these formats in order to create DateTime objects, and it can take a DateTime object and produce a string representing it in the DB2 format. =head1 METHODS This class offers the following methods. All of the parsing methods set the returned DateTime object's time zone to the floating time zone, because DB2 does not provide time zone information. =over 4 =item * parse_time($string) =item * parse_date($string) =item * parse_timestamp($string) Given a value of the appropriate type, this method will return a new C object. The time zone for this object will always be the floating time zone, because by DB2 stores the local datetime, not UTC. If given an improperly formatted string, this method may die. =item * format_date($datetime) =item * format_time($datetime) =item * format_timestamp($datetime) Given a C object, this methods returns an appropriately formatted string. =back =head1 SUPPORT Support for this module is provided via the datetime@perl.org email list. See http://lists.perl.org/ for more details. =head1 AUTHOR Jess Robinson This module was shamelessly cloned from Dave Rolsky's L module. =head1 COPYRIGHT Copyright (c) 2005 Jess Robinson. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO datetime@perl.org mailing list http://datetime.perl.org/ =cut DateTime-Format-DB2-0.05/Changes0000644000175100001440000000037310554507754015773 0ustar castawayusers2007-01-20: 0.05 - Added parse_datetime the same as parse_timestamp, since some seem to expect it (DBIx::Class!) 2005-12-18: 0.04 - Added parsing of YYYY-MM-DD HH:MM:SS.NNNNNN since thats what DBI actually gives us. (odd that) 0.03 - Fixed SYNOPSIS. DateTime-Format-DB2-0.05/Makefile.PL0000644000175100001440000000043410347641032016434 0ustar castawayusersuse ExtUtils::MakeMaker; WriteMakefile( NAME => 'DateTime::Format::DB2', VERSION_FROM => 'lib/DateTime/Format/DB2.pm', PREREQ_PM => { 'DateTime' => 0, 'DateTime::Format::Builder' => 0, }, ); DateTime-Format-DB2-0.05/META.yml0000644000175100001440000000061410554507757015752 0ustar castawayusers# http://module-build.sourceforge.net/META-spec.html #XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX# name: DateTime-Format-DB2 version: 0.05 version_from: lib/DateTime/Format/DB2.pm installdirs: site requires: DateTime: 0 DateTime::Format::Builder: 0 distribution_type: module generated_by: ExtUtils::MakeMaker version 6.17 DateTime-Format-DB2-0.05/MANIFEST0000644000175100001440000000017210351255143015611 0ustar castawayuserslib/DateTime/Format/DB2.pm Makefile.PL MANIFEST This list of files META.yml Changes t/00load.t t/01format.t t/02parse.t