X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FInformix.pm;h=4c475d7b46d285035089db125d73be62bca39127;hb=6a247f3368100ac0557e33cc534bc8ad0ccb1175;hp=414c3914c3f62d3d62d0afedd254b4dbd402302d;hpb=e8fc51c7ae51c4b7b181967b3b1da12cc951c3f6;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Storage/DBI/Informix.pm b/lib/DBIx/Class/Storage/DBI/Informix.pm index 414c391..4c475d7 100644 --- a/lib/DBIx/Class/Storage/DBI/Informix.pm +++ b/lib/DBIx/Class/Storage/DBI/Informix.pm @@ -9,6 +9,8 @@ use Scope::Guard (); use Context::Preserve 'preserve_context'; use namespace::clean; +__PACKAGE__->sql_limit_dialect ('SkipFirst'); + __PACKAGE__->mk_group_accessors('simple' => '__last_insert_id'); =head1 NAME @@ -37,16 +39,6 @@ sub last_insert_id { shift->__last_insert_id; } -sub _sql_maker_opts { - my ( $self, $opts ) = @_; - - if ( $opts ) { - $self->{_sql_maker_opts} = { %$opts }; - } - - return { limit_dialect => 'SkipFirst', %{$self->{_sql_maker_opts}||{}} }; -} - sub _svp_begin { my ($self, $name) = @_;