@@ -1,3 +1,5 @@

+0.1679

+    - added EXPERIMENTAL select() wrap option to support Oracle ROWNUM

 0.1678

     - DBIx::Custom::Model filter attribute can receive hash reference

     - DBIx::Custom::Where clause attribute can receive clause without column name

@@ -1,6 +1,6 @@

 package DBIx::Custom;

-our $VERSION = '0.1678';

+our $VERSION = '0.1679';

 use 5.008001;

 use strict;

@@ -811,7 +811,8 @@ sub register_filter {

 sub register_tag { shift->query_builder->register_tag(@_) }

 our %SELECT_ARGS

-  = map { $_ => 1 } @COMMON_ARGS, qw/column where append relation join param/;

+  = map { $_ => 1 } @COMMON_ARGS,

+                    qw/column where append relation join param wrap/;

 sub select {

     my ($self, %args) = @_;

@@ -831,6 +832,7 @@ sub select {

     my $relation = delete $args{relation};

     my $param = delete $args{param} || {};

     my $query_return = $args{query};

+    my $wrap = delete $args{wrap};

     # Check arguments

     foreach my $name (keys %args) {

@@ -900,6 +902,14 @@ sub select {

     # Append

     push @sql, $append if $append;

+    # Wrap

+    if ($wrap) {

+        croak "wrap option must be array refrence (DBIx::Custom::select)"

+          unless ref $wrap eq 'ARRAY';

+        unshift @sql, $wrap->[0];

+        push @sql, $wrap->[1];

+    }

+    

     # SQL

     my $sql = join (' ', @sql);

@@ -2129,3 +2129,24 @@ $rows = $dbi->select(

 )->fetch_hash_all;

 is_deeply($rows, [{table1_key1 => 2, key2 => 3, key3 => 5}]);

+

+test 'select() wrap option';

+$dbi = DBIx::Custom->connect($NEW_ARGS->{0});

+$dbi->execute($CREATE_TABLE->{0});

+$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});

+$dbi->insert(table => 'table1', param => {key1 => 2, key2 => 3});

+$rows = $dbi->select(

+    table => 'table1',

+    column => 'key1',

+    wrap => ['select * from (', ') as t where key1 = 1']

+)->fetch_hash_all;

+is_deeply($rows, [{key1 => 1}]);

+

+eval {

+$dbi->select(

+    table => 'table1',

+    column => 'key1',

+    wrap => 'select * from ('

+)

+};

+like($@, qr/array/);