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

+0.1651

+    - add experimental DBIx::Custom::Model filter attribute.

 0.1650

     - add experimental DBIx::Custom::Model name() attribute

-    - remove name specified feature from experimantal include_model().

 0.1649

     - add experimental DBIx::Custom::Model column_clause() method.

     - select method column option can receive string.

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

 package DBIx::Custom;

-our $VERSION = '0.1650';

+our $VERSION = '0.1651';

 use 5.008001;

 use strict;

@@ -771,6 +771,9 @@ sub include_model {

         # Set

         $self->model($model->name, $model);

+        

+        # Apply filter

+        $self->apply_filter($model->table, %{$model->filter});

     }

     return $self;

 }

@@ -1084,6 +1084,15 @@ You can set primary key to model.

 Primary key is used by C<update_at()>, C<delete_at()>,

 C<select_at()>.

+by C<filter> you can define filters applied by C<apply_filter()>

+

+    $model->filter({

+        title  => {out => ..., in => ..., end => ...},

+        author => {out => ..., in => ..., end => ...}

+    });

+

+This filters is applied when C<include_model()> is called.

+

 You can set column names

     $model->columns(['id', 'number_id']);

@@ -1119,6 +1119,15 @@ L<DBIx::Custom>とL<DBI>のすべてのメソッドを呼び出すこともで

 ここで設定したプライマリーキーはC<update_at()>, C<delete_at()>,

 C<select_at()>で利用されます。

+C<filter>でC<apply_filter()>で適用されるフィルタを定義しておくこともできます。

+

+    $model->filter({

+        title  => {out => ..., in => ..., end => ...},

+        author => {out => ..., in => ..., end => ...}

+    });

+

+このフィルタはC<include_model()>を呼び出したときに自動的に適用されます。

+

 モデルには列名を設定することもできます。

     $model->columns(['id', 'number_id']);

@@ -1134,6 +1143,7 @@ C<select_at()>で利用されます。

 ここで設定したリレーションはC<select()>, C<select_at()>で利用されます。

+

 =head2 クラス名、モデル名、テーブル名

 クラス名とモデル名とテーブル名の関係について書いておきます。

@@ -1146,6 +1156,8 @@ C<select_at()>で利用されます。

     package MyModel::book;

+    use base 'MyModel';

+    

     __PACAKGE__->attr(name => 'book_model');

     クラス名     モデル名      テーブル名

@@ -1158,9 +1170,11 @@ C<select_at()>で利用されます。

 テーブル名を変更することもできます。

     package MyModel::book;

+

+    use base 'MyModel';

     __PACAKGE__->attr(table => 'book_table');

-

+    

     クラス名     モデル名              テーブル名

     book         (クラス名) -> book    book_table

@@ -13,6 +13,7 @@ push @DBIx::Custom::CARP_NOT, __PACKAGE__;

 __PACKAGE__->attr(

     ['dbi', 'name', 'table'],

     columns => sub { [] },

+    filter => sub { {} },

     primary_key => sub { [] },

     relation => sub { {} }

 );

@@ -157,7 +158,7 @@ my $table = DBIx::Custom::Model->new(table => 'books');

 =head1 ATTRIBUTES

-=head2 C<(experimental) columns>

+=head2 C<columns>

     my $columns = $model->columns;

     $model      = $model->columns(['id', 'number']);

@@ -169,6 +170,13 @@ my $table = DBIx::Custom::Model->new(table => 'books');

 L<DBIx::Custom> object.

+=head2 C<filter>

+

+    my $dbi = $model->filter

+    $model  = $model->filter({out => 'tp_to_date', in => 'date_to_tp'});

+

+This filter is applied when L<DBIx::Custom> C<include_model()> is called.

+

 =head2 C<name>

     my $name = $model->name;

@@ -1591,6 +1591,10 @@ $result = $dbi->model('table1')->select(column => ['key3'], where => {'table1.ke

 is($result->fetch_hash_first->{key3}, 3);

 $result = $dbi->model('table1')->select_at(column => ['key3'], where => [1]);

 is($result->fetch_hash_first->{key3}, 3);

+$dbi->execute('create table table3 (key1);');

+$dbi->model('table3')->insert(param => {key1 => 'a'});

+is_deeply($dbi->model('table3')->select(where => {key1 => 'a'})->fetch_hash_first,

+   {key1 => 'A'});

 test 'column_clause';

 $dbi = MyDBI7->connect($NEW_ARGS->{0});

@@ -0,0 +1,11 @@

+package MyModel6::table3;

+

+use base 'MyModel6';

+

+__PACKAGE__->attr(filter => sub {

+    {

+        key1 => {in => sub { uc $_[0] }}

+    }

+});

+

+1;