File Coverage

blib/lib/SQL/Abstract/FromQuery/Oracle.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition	2	4	50.0
subroutine	5	5	100.0
pod	0	2	0.0
total	24	28	85.7

package SQL::Abstract::FromQuery::Oracle;

use strict;
use warnings;
use parent 'SQL::Abstract::FromQuery';


sub date {
  my ($self, $h) = @_;

  my $date_format = $self->{date_format} || 'YYYY-MM-DD';
  my $date = $self->next::method($h);

  return \ ["to_date(?, '$date_format')", $date];
}


sub time {
  my ($self, $h) = @_;

  my $time_format = $self->{time_format} || 'HH24:MI:SS';
  my $time = $self->next::method($h);

  return \ ["to_date(?, '$time_format')", $time];
}


1; # End of SQL::Abstract::FromQuery::Oracle

__END__