DateTime-Format-DB2-0.06/0000755000175100017510000000000014760654101015146 5ustar castawaycastawayDateTime-Format-DB2-0.06/t/0000755000175100017510000000000014760654101015411 5ustar castawaycastawayDateTime-Format-DB2-0.06/t/01format.t0000755000175100017510000000115412721573531017235 0ustar castawaycastawayuse 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.06/t/02parse.t0000755000175100017510000000203312721573531017055 0ustar castawaycastawayuse 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.06/t/00load.t0000755000175100017510000000011412721573531016656 0ustar castawaycastawayuse strict; use Test::More tests => 1; use_ok( 'DateTime::Format::DB2' ); DateTime-Format-DB2-0.06/META.yml0000644000175100017510000000104314760654101016415 0ustar castawaycastaway--- abstract: unknown author: - unknown build_requires: ExtUtils::MakeMaker: '0' configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 1 generated_by: 'ExtUtils::MakeMaker version 7.70, CPAN::Meta::Converter version 2.150010' license: unknown meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: '1.4' name: DateTime-Format-DB2 no_index: directory: - t - inc requires: DateTime: '0' DateTime::Format::Builder: '0' version: '0.06' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' DateTime-Format-DB2-0.06/Changes0000644000175100017510000000037312721573531016446 0ustar castawaycastaway2007-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.06/MANIFEST0000644000175100017510000000031614760654101016277 0ustar castawaycastawaylib/DateTime/Format/DB2.pm Makefile.PL MANIFEST This list of files META.yml Changes t/00load.t t/01format.t t/02parse.t META.json Module JSON meta-data (added by MakeMaker) DateTime-Format-DB2-0.06/META.json0000644000175100017510000000165114760654101016572 0ustar castawaycastaway{ "abstract" : "unknown", "author" : [ "unknown" ], "dynamic_config" : 1, "generated_by" : "ExtUtils::MakeMaker version 7.70, CPAN::Meta::Converter version 2.150010", "license" : [ "unknown" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", "version" : 2 }, "name" : "DateTime-Format-DB2", "no_index" : { "directory" : [ "t", "inc" ] }, "prereqs" : { "build" : { "requires" : { "ExtUtils::MakeMaker" : "0" } }, "configure" : { "requires" : { "ExtUtils::MakeMaker" : "0" } }, "runtime" : { "requires" : { "DateTime" : "0", "DateTime::Format::Builder" : "0" } } }, "release_status" : "stable", "version" : "0.06", "x_serialization_backend" : "JSON::PP version 4.16" } DateTime-Format-DB2-0.06/Makefile.PL0000644000175100017510000000043412721573531017123 0ustar castawaycastawayuse 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.06/lib/0000755000175100017510000000000014760654101015714 5ustar castawaycastawayDateTime-Format-DB2-0.06/lib/DateTime/0000755000175100017510000000000014760654101017410 5ustar castawaycastawayDateTime-Format-DB2-0.06/lib/DateTime/Format/0000755000175100017510000000000014760654101020640 5ustar castawaycastawayDateTime-Format-DB2-0.06/lib/DateTime/Format/DB2.pm0000644000175100017510000000764014760653411021557 0ustar castawaycastawaypackage DateTime::Format::DB2; use strict; use vars qw ($VERSION); $VERSION = '0.06'; 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} = int($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