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}||{}} };
41 DBIx::Class::Storage::DBI::Informix - Base Storage Class for INFORMIX Support
47 This class implements storage-specific support for Informix
51 See L<DBIx::Class/CONTRIBUTORS>
55 You may distribute this code under the same terms as Perl itself.