File Coverage

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

Criterion	Covered	Total	%
statement	29	29	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	8	8	100.0
pod	0	4	0.0
total	41	46	89.1

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

use strict;
use warnings;
use parent 'SQL::Abstract::FromQuery';
use UNIVERSAL::DOES  qw/does/;

our $time_fmt         = q{HH24:MI:SS};
our $datetime_fmt_ISO = qq{YYYY-MM-DD"T"$time_fmt};

#======================================================================
# override actions hooked to the grammar
#======================================================================

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

  my $date = $self->next::method($h); # returns date in ISO format YYYY-MM-DD

  # datetime format is OK for a date without time, Oracle accepts it
  return \ ["TO_DATE(?, '$datetime_fmt_ISO')", $date];
}


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

  my $time = $self->next::method($h); # returns time in ISO format HH:MM:SS
  return \ ["TO_DATE(?, '$time_fmt')", $time];
}


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

  # hack : we remove the "TO_DATE()" parts before calling the parent method ...
  # and then re-inject the "TO_DATE()" on the global result

  $_ = @{$$_}[1] for @{$h}{qw/date time/}; # just keep the bind values

  my $datetime = $self->next::method($h); # returns dt as YYYY-MM-DDTHH:MM:SS

  return \ ["TO_DATE(?, '$datetime_fmt_ISO')", $datetime];
}



#======================================================================
# override finalization callback
#======================================================================


sub finalize {
  my ($self, $result) = @_;

  # if to_date(..) was used without any comparison operator, we must add
  # an '=' because SQL::Abstract won't do it automatically for values
  # of shape \[..] (i.e. literal SQL with placeholders and bind values)
  foreach my $val (values %$result) {
    if (does($val, 'REF') && does($$val, 'ARRAY')) {
      $$val->[0] =~ s/^TO_DATE/= TO_DATE/;
    }
  }

  return $self->next::method($result);
}



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

__END__