1 package # Hide from PAUSE
2 DBIx::Class::SQLAHacks::ODBC::Firebird;
6 use base qw( DBIx::Class::SQLAHacks );
7 use Carp::Clan qw/^DBIx::Class|^SQL::Abstract/;
11 my ($table, $vals, $opts) = @_;
13 # Quoting RETURNING values breaks the Firebird ODBC driver, so we convert to
14 # scalarref with unquoted values.
15 my $returning = $opts->{returning};
17 if ($returning && ref $returning eq 'ARRAY') {
18 $opts->{returning} = \join ', ' => @$returning;
21 return $self->next::method(@_);