File Coverage

blib/lib/Time/Piece/DB2.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch			n/a
condition			n/a
subroutine	11	11	100.0
pod	0	6	0.0
total	47	53	88.6

package Time::Piece::DB2;

use strict;

use vars qw($VERSION);

$VERSION = '0.05';

use Time::Piece;

sub import { shift; @_ = ('Time::Piece', @_); goto &Time::Piece::import }

package Time::Piece;

use Time::Seconds;

# BEGIN
# {
#     my $has_dst_bug =
# 	Time::Piece->strptime( '20000601120000', '%Y%m%d%H%M%S' )->hour != 12;
#     sub HAS_DST_BUG () { $has_dst_bug }
# }

sub db2_date
{
    my $self = shift;
    my $old_sep = $self->date_separator('-');
    my $ymd = $self->ymd;
    $self->date_separator($old_sep);
    return $ymd;
}

sub db2_time
{
    my $self = shift;
    my $old_sep = $self->time_separator(':');
    my $hms = $self->hms;
    $self->time_separator($old_sep);
    return $hms;
}

sub db2_timestamp
{
    my $self = shift;
    return join ' ', $self->db2_date, $self->db2_time;
}

sub from_db2_date
{
    my $class = shift;
    return $class->strptime( shift, '%Y-%m-%d' );
}

sub from_db2_time
{
    my ($class,$tstamp) = @_;
    $tstamp = substr($tstamp,0,length($tstamp)-7);
    return $class->strptime( $tstamp, '%H:%M:%S' );
}

sub from_db2_timestamp
{
    my ($class,$tstamp) = @_;
    $tstamp = substr($tstamp,0,length($tstamp)-7);
    my $time = $class->strptime( $tstamp, '%Y-%m-%d %H:%M:%S' );
    return $time;
}

1;

__END__