File Coverage

blib/lib/Class/DBI/Plugin/TimePiece/Oracle.pm

Criterion	Covered	Total	%
statement	29	46	63.0
branch	0	6	0.0
condition	0	3	0.0
subroutine	7	11	63.6
pod			n/a
total	36	66	54.5

package Class::DBI::Plugin::TimePiece::Oracle;

use strict;
use warnings;
use Carp;
use Class::DBI::Plugin::DateFormat::Oracle;

use vars '$VERSION';

$VERSION = '0.01';

# This module supports the following %FORMAT.
my %FORMAT = (
    'YYYY'  => '%Y',
    'YY'    => '%y',
    'RRRR'  => '%Y',
    'RR'    => '%y',
    'MM'    => '%m',
    'MON'   => '%b',
    'MONTH' => '%B',
    'DD'    => '%d',
    'HH'    => '%I',
    'HH24'  => '%H',
    'MI'    => '%M',
    'SS'    => '%S',
);

# This module supports the following $SEPARATOR.
my $SEPARATOR = q[\s\-\/\,\;\:];

sub import {
    my $class = shift;
    my $pkg   = caller(0);
    my $format;
    my $nsl_format;

    no strict 'refs';
    *{"$pkg\::has_a_auto_timepiece"} = sub {
        my $self   = shift;
        my $colum  = shift;
        $self->_get_nls_date_format;
        $self->has_a(
            $colum  => 'Time::Piece',
            inflate => sub { Time::Piece->strptime(shift , $format ) },
            deflate => sub { shift->strftime($format) },
        );
    };

    *{"$pkg\::has_a_atp"} = *{"$pkg\::has_a_auto_timepiece"};

    *{"$pkg\::_get_nls_date_format"} = sub {
        my $self = shift;

        if ( defined $format ) {
            return;
        }

        if ( ! defined $nsl_format ) {
            $nsl_format = $self->get_nls_date_format;
        }

        my $chk_target = $nsl_format;
        $format        = $nsl_format;

        for my $key ( reverse sort keys %FORMAT ) {
            $format     =~ s/${key}/$FORMAT{$key}/;
            $chk_target =~ s/${key}//;
        }
        $self->_croak("FORMAT PARSE ERROR!") if ( $chk_target eq q[] && $chk_target =~ /[^${SEPARATOR}]/ );
    };

    goto &Class::DBI::Plugin::DateFormat::Oracle::import;
}

1;
__END__