1 package DBIx::Class::Storage::DBI::Informix;
5 use base qw/DBIx::Class::Storage::DBI/;
9 __PACKAGE__->mk_group_accessors('simple' => '__last_insert_id');
14 my ($rv, $sth, @rest) = $self->next::method(@_);
15 if ($op eq 'insert') {
16 $self->__last_insert_id($sth->{ix_sqlerrd}[1]);
18 return (wantarray ? ($rv, $sth, @rest) : $rv);
22 shift->__last_insert_id;
26 my ( $self, $opts ) = @_;
29 $self->{_sql_maker_opts} = { %$opts };
32 return { limit_dialect => 'SkipFirst', %{$self->{_sql_maker_opts}||{}} };
36 my ($self, $name) = @_;
38 $self->_get_dbh->do("SAVEPOINT $name");
41 # can't release savepoints
42 sub _svp_release { 1 }
45 my ($self, $name) = @_;
47 $self->_get_dbh->do("ROLLBACK TO SAVEPOINT $name")
57 DBIx::Class::Storage::DBI::Informix - Base Storage Class for INFORMIX Support
63 This class implements storage-specific support for Informix
67 See L<DBIx::Class/CONTRIBUTORS>
71 You may distribute this code under the same terms as Perl itself.