File Coverage

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

Criterion	Covered	Total	%
statement	21	33	63.6
branch	0	4	0.0
condition			n/a
subroutine	6	8	75.0
pod			n/a
total	27	45	60.0

package Class::DBI::Plugin::DateFormat::Oracle;

use strict;
use warnings;
use Carp;
use vars '$VERSION';

$VERSION = '0.01';

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

    no strict 'refs';
    *{"$pkg\::set_nls_date_format"} = sub {
        my $self   = shift;
        my $format = shift;

        eval {
            $pkg->db_Main->do(qq[ALTER SESSION SET NLS_DATE_FORMAT = '$format']);
        };
        $self->_croak("ALTER SESSION ERROR ".$@ ) if $@;
    };

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

        $self->set_sql(nls_date_format => q[SELECT VALUE FROM v$nls_parameters WHERE PARAMETER = 'NLS_DATE_FORMAT']);

        eval {
            $date_format = $self->search_nls_date_format->first->{value};
        };

        $self->_croak("SELECT NLS_DATE_FORMAT ERROR ".$@ ) if $@;
        return $date_format;
    }
}

1;
__END__