@@ -2,7 +2,8 @@

     - removed from cache() and cache_method() document for a while and cache() value

       become 0 because I find something bug.

     - create_model() return model.

-    

+    - added document of hash filter

+    - adeed EXPERIMENTAL DBIx::Custom::Model method()

 0.1665

     - removed EXPERIMETNAL flag from insert_at(), update_at(), delete_at(), select_at(), insert_param(), not_exists(), select()'s query option, update_param(), where, table tag, each column, safety_character, DBIx::Where, where().

     - added EXPERIMETNAL create_model()

@@ -1697,7 +1697,7 @@ and C<PrintError> option is false by default.

 =head2 create_model

-    $dbi->create_model(

+    my $model = $dbi->create_model(

         table => 'book',

         primary_key => 'id',

         join => [

@@ -1713,7 +1713,7 @@ and C<PrintError> option is false by default.

     );

 Create L<DBIx::Custom::Model> object and initialize model.

-the module is used from model() method.

+the module is also used from model() method.

    $dbi->model('book')->select(...);

@@ -1344,41 +1344,6 @@ You can change result class. By default it is L<DBIx::Custom::Result>.

     my $dbi = DBIx::Custom->connect(...);

     $dbi->result_class('MyResult');

-=head3 Caching

-

-SQL after parsing tag is cached for performance.

-You can set C<cache()>. By default, chaching is true.

-

-    $dbi->cache(1);

-

-The way to cache is changed by C<cache_method()>.

-Default method is the following one.

-Cache is saved to memory.

-

-    $dbi->cache_method(sub {

-        sub {

-            my $self = shift;

-            

-            $self->{_cached} ||= {};

-            

-            if (@_ > 1) {

-                # Save cache

-                $self->{_cached}{$_[0]} = $_[1] 

-            }

-            else {

-                # Get cache

-                return $self->{_cached}{$_[0]}

-            }

-        }

-    });

-    

-First argument is L<DBIx::Custom> object.

-Second argument is SQL before parsing.

-Third argument is SQL information after parsing. This is hash reference.

-

-If third argument exists, you save cache,

-and if third argument isn't exists, you get chace.

-

 =head1 EXAMPLES

 You can see exsamples in the following wiki.

@@ -1369,42 +1369,6 @@ L<DBIx::Custom>オブジェクトから呼び出すことができます。

     my $dbi = DBIx::Custom->connect(...);

     $dbi->result_class('MyResult');

-=head3 キャッシング

-

-タグの解析後のSQLはパフォーマンスの理由のためにキャッシュされます。

-これはC<chace>で設定でき、デフォルトではキャッシュを行う設定です。

-

-    $dbi->cache(1);

-

-キャッシュ方法はC<cache_method>で変更することができます。

-デフォルトのメソッドは以下のようになっていて、

-メモリ上にキャッシュが保存されます。

-

-    $dbi->cache_method(sub {

-        sub {

-            my $self = shift;

-            

-            $self->{_cached} ||= {};

-            

-            if (@_ > 1) {

-                # キャッシュの保存

-                $self->{_cached}{$_[0]} = $_[1] 

-            }

-            else {

-                # キャッシュの取得

-                return $self->{_cached}{$_[0]}

-            }

-        }

-    });

-    

-第一はL<DBIx::Custom>オブジェクトです。

-第二引数はタグが解析される前のSQLです。

-第三引数はタグの解析後のSQLの情報です。これはハッシュのリファレンスです。

-

-第三引数が存在した場合はキャッシュを設定し、

-存在しなかった場合はキャッシュを取得する実装に

-してください。

-

 =head1 サンプル

 以下のWikiでサンプルを見ることができます。

@@ -29,7 +29,11 @@ sub AUTOLOAD {

     my ($package, $mname) = $AUTOLOAD =~ /^([\w\:]+)\:\:(\w+)$/;

     # Method

-    if (my $dbi_method = $self->dbi->can($mname)) {

+    $self->{_methods} ||= {};

+    if (my $method = $self->{_methods}->{$mname}) {

+        return $self->$method(@_)

+    }

+    elsif (my $dbi_method = $self->dbi->can($mname)) {

         $self->dbi->$dbi_method(@_);

     }

     elsif (my $dbh_method = $self->dbi->dbh->can($mname)) {

@@ -78,6 +82,16 @@ sub column {

 sub DESTROY { }

+sub method {

+    my $self = shift;

+    

+    # Merge

+    my $methods = ref $_[0] eq 'HASH' ? $_[0] : {@_};

+    $self->{_methods} = {%{$self->{_methods} || {}}, %$methods};

+    

+    return $self;

+}

+

 sub mycolumn {

     my $self = shift;

     my $table = shift unless ref $_[0];

@@ -232,6 +246,25 @@ you don't have to specify C<table> option.

 Same as C<insert_at()> of L<DBIx::Custom> except that

 you don't have to specify C<table> and C<primary_key> option.

+=head2 C<method> EXPERIMENTAL

+

+    $model->method(

+        update_or_insert => sub {

+            my $self = shift;

+            

+            # ...

+        },

+        find_or_create   => sub {

+            my $self = shift;

+            

+            # ...

+    );

+

+Register method. These method is called directly from L<DBIx::Custom::Model> object.

+

+    $model->update_or_insert;

+    $model->find_or_create;

+

 =head2 C<mycolumn>

     my $column = $self->mycolumn;

@@ -6,6 +6,7 @@ use warnings;

 sub array_to_hash {

     my $array = shift;

+    return $array if ref $array eq 'HASH';

     return unless $array;

     return $array if ref $array eq 'HASH';

@@ -1975,3 +1975,13 @@ is_deeply($result->fetch_hash_first,

           {key1 => 1, key2 => 2, 'table2__key1' => 1, 'table2__key3' => 3});

 is_deeply($model2->select->fetch_hash_first, {key1 => 1, key3 => 3});

+test 'model method';

+test 'create_model';

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

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

+$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 3});

+$model = $dbi->create_model(

+    table => 'table2'

+);

+$model->method(foo => sub { shift->select(@_) });

+is_deeply($model->foo->fetch_hash_first, {key1 => 1, key3 => 3});