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

 0.1744

-    - improved performance

+    - added EXPERIMENTAL reuse_sth option to execute method

     - moved DBIx::Custom::Guide to wiki

 0.1733

     - select method join option can receive string.

@@ -363,9 +363,9 @@ sub execute {

     $sql .= $opt{append} if defined $opt{append} && !ref $sql;

     # Query

-    my $query = ref $sql

-              ? $sql

-              : $self->_create_query($sql,$opt{after_build_sql} || $opt{sqlfilter});

+    my $query = ref $sql ? $sql

+      : $self->_create_query($sql,$opt{after_build_sql} || $opt{sqlfilter},

+          $opt{reuse_sth});

     # Save query

     $self->last_sql($query->sql);

@@ -1096,7 +1096,7 @@ sub where { DBIx::Custom::Where->new(dbi => shift, @_) }

 sub _create_query {

-    my ($self, $source, $after_build_sql) = @_;

+    my ($self, $source, $after_build_sql, $reuse_sth) = @_;

     # Cache

     my $cache = $self->cache;

@@ -1153,7 +1153,9 @@ sub _create_query {

     # Prepare statement handle

     my $sth;

-    eval { $sth = $self->dbh->prepare($query->{sql})};

+    $sth = $reuse_sth->{$query->{sql}} if $reuse_sth;

+    eval { $sth = $self->dbh->prepare($query->{sql}) } unless $sth;

+    $reuse_sth->{$query->{sql}} = $sth if $reuse_sth;

     if ($@) {

         $self->_croak($@, qq{. Following SQL is executed.\n}

@@ -2429,6 +2431,26 @@ The following opitons are available.

 =over 4

+=item C<after_build_sql> 

+

+You can filter sql after the sql is build.

+

+    after_build_sql => $code_ref

+

+The following one is one example.

+

+    $dbi->select(

+        table => 'book',

+        column => 'distinct(name)',

+        after_build_sql => sub {

+            "select count(*) from ($_[0]) as t1"

+        }

+    );

+

+The following SQL is executed.

+

+    select count(*) from (select distinct(name) from book) as t1;

+

 =item C<append>

     append => 'order by name'

@@ -2535,26 +2557,6 @@ and don't forget to sort $row values by $row key asc order.

 Priamry key. This is used when C<id> option find primary key.

-=item C<after_build_sql> 

-

-You can filter sql after the sql is build.

-

-    after_build_sql => $code_ref

-

-The following one is one example.

-

-    $dbi->select(

-        table => 'book',

-        column => 'distinct(name)',

-        after_build_sql => sub {

-            "select count(*) from ($_[0]) as t1"

-        }

-    );

-

-The following SQL is executed.

-

-    select count(*) from (select distinct(name) from book) as t1;

-

 =item C<table>

     table => 'author'

@@ -2579,6 +2581,18 @@ Table alias. Key is real table name, value is alias table name.

 If you set C<table_alias>, you can enable C<into1> and C<into2> type rule

 on alias table name.

+=item C<reuse_sth EXPERIMENTAL>

+    

+    reuse_sth => $has_ref

+

+Reuse statament handle if the hash reference variable is set.

+    

+    my $sth = {};

+    $dbi->execute($sql, $param, sth => $sth);

+

+This will improved performance when same sql is executed repeatedly

+because generally creating statement handle is slow.

+

 =item C<type_rule_off>

     type_rule_off => 1

@@ -80,6 +80,7 @@ my $user_table_info;

 my $user_column_info;

 my $values_clause;

 my $assign_clause;

+my $reuse_sth;

 require MyDBI1;

 {

@@ -237,6 +238,16 @@ require MyDBI1;

     }

 }

+test 'execute reuse_sth option';

+eval { $dbi->execute("drop table $table1") };

+$dbi->execute($create_table1);

+$reuse_sth = {};

+for my $i (1 .. 2) {

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

+}

+$rows = $dbi->select(table => $table1)->all;

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

+

 # Get user table info

 $dbi = DBIx::Custom->connect;

 eval { $dbi->execute("drop table $table1") };

@@ -324,7 +335,7 @@ $rows = $result->all;

 is_deeply($rows, [{$key1 => 2, $key2 => 4}], "filter");

 test 'DBIx::Custom::SQLTemplate basic tag';

-$dbi->execute("drop table $table1");

+eval { $dbi->execute("drop table $table1") };

 $dbi->execute($create_table1_2);

 $dbi->insert(table => $table1, param => {$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5});

 $dbi->insert(table => $table1, param => {$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10});

@@ -348,7 +359,7 @@ $rows = $result->all;

 is_deeply($rows, [{$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}], "basic tag2");

 test 'DIB::Custom::SQLTemplate in tag';

-$dbi->execute("drop table $table1");

+eval { $dbi->execute("drop table $table1") };

 $dbi->execute($create_table1_2);

 $dbi->insert(table => $table1, param => {$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5});

 $dbi->insert(table => $table1, param => {$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10});

@@ -383,7 +394,7 @@ is_deeply($rows, [{$key1 => 1, $key2 => 1, $key3 => 1, $key4 => 1, $key5 => 5},

                   {$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10}], "basic");

 test 'Named placeholder';

-$dbi->execute("drop table $table1");

+eval { $dbi->execute("drop table $table1") };

 $dbi->execute($create_table1_2);

 $dbi->insert(table => $table1, param => {$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5});

 $dbi->insert(table => $table1, param => {$key1 => 6, $key2 => 7, $key3 => 8, $key4 => 9, $key5 => 10});

@@ -412,7 +423,7 @@ $result = $dbi->execute(

 $rows = $result->all;

 is_deeply($rows, [{$key1 => 1, $key2 => 2, $key3 => 3, $key4 => 4, $key5 => 5}]);

-$dbi->execute("drop table $table1");

+eval { $dbi->execute("drop table $table1") };

 $dbi->execute($create_table1);

 $dbi->insert(table => $table1, param => {$key1 => '2011-10-14 12:19:18', $key2 => 2});

 $source = "select * from $table1 where $key1 = '2011-10-14 12:19:18' and $key2 = :$key2";

@@ -463,7 +474,7 @@ $rows   = $result->all;

 is_deeply($rows, [{$key1 => 3, $key2 => 4}], "filter");

 $dbi->default_bind_filter(undef);

-$dbi->execute("drop table $table1");

+eval { $dbi->execute("drop table $table1") };

 $dbi->execute($create_table1);

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

 $rows = $dbi->select(table => $table1)->all;