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

 0.1653

+    - added experimental DBIx::Custom::Result remove_end_filter()

     - added experimental DBIx::Custom::Model insert_at()

     - added experimental insert_at()

     - improved error message

@@ -1435,7 +1435,7 @@ Arguments is same as C<delete> method,

 except that C<delete_all> don't have C<where> argument.

 Return value of C<delete_all()> is the count of affected rows.

-=head3 C<delete_at()>

+=head3 C<(experimental) delete_at()>

 To delete row by using primary key, use C<delete_at()>

@@ -1476,6 +1476,22 @@ default to 0. This is experimental.

 This is overwrites C<default_bind_filter>.

 Return value of C<insert()> is the count of affected rows.

+=head3 C<(experimental) insert_at()>

+

+To insert row by using primary key, use C<insert_at()>

+

+    $dbi->insert_at(

+        table => 'book',

+        primary_key => ['id'],

+        where => ['123'],

+        param => {name => 'Ken'}

+    );

+

+In this example, row which id column is 123 is inserted.

+NOTE that you must pass array reference as C<where>.

+If C<param> contains primary key,

+the key and value is delete from C<param>.

+

 =head2 C<(experimental) each_column>

     $dbi->each_column(

@@ -1648,7 +1664,7 @@ First element is a string. it contains tags,

 such as "{= title} or {like author}".

 Second element is paramters.

-=head3 C<select_at()>

+=head3 C<(experimental) select_at()>

 To select row by using primary key, use C<select_at()>.

@@ -1709,7 +1725,7 @@ Arguments is same as C<update> method,

 except that C<update_all> don't have C<where> argument.

 Return value of C<update_all()> is the count of affected rows.

-=head3 C<update_at()>

+=head3 C<(experimental) update_at()>

 To update row by using primary key, use C<update_at()>

@@ -693,6 +693,10 @@ use C<end_filter()> to add end filter.

 In this example, L<Time::Piece> object is converted to readable format.

+You can remove end_filter by C<end_filter>

+

+    $result->remove_end_filter;

+

 =head3 Automate applying filter : C<each_column()>

 It is useful to apply filter automatically at date type columns.

@@ -703,6 +703,10 @@ C<DBIx::Custom::Result>のC<filter()>を使用します。

 この例ではL<Time::Piece>オブジェクトを読みやすい書式に変換しています。

+最後のフィルタリングをC<remove_filter()>で取り除くこともできます。

+

+$result->remove_end_filter;

+

 =head3 フィルタの適用の自動化 C<each_column()>

 日付型の列は自動的にフィルタを適用できると便利です。

@@ -247,6 +247,14 @@ sub fetch_multi {

     return $rows;

 }

+sub remove_end_filter {

+    my $self = shift;

+    

+    $self->{end_filter} = {};

+    

+    return $self;

+}

+

 # Deprecated

 sub default_filter {

     my $self = shift;

@@ -428,6 +436,12 @@ Filters.

 These each filters override the filters applied by C<apply_filter> of

 L<DBIx::Custom>.

+=head2 C<(experimental) remove_end_filter>

+

+    $result->remove_end_filter;

+

+Remove end filter.

+

 =head2 C<(experimental) stash>

     my $stash = $result->stash;

@@ -875,6 +875,17 @@ $result->end_filter(key1 => undef);

 $row = $result->fetch_hash_first;

 is_deeply($row, {key1 => 1, key2 => 40}, 'apply_filter overwrite');

+test 'remove_end_filter';

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

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

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

+$result = $dbi->select(table => 'table1');

+$result->filter(key1 => sub { $_[0] * 2 }, key2 => sub { $_[0] * 4 });

+$row = $result->end_filter(key1 => sub { $_[0] * 3 }, key2 => sub { $_[0] * 5 })

+       ->remove_end_filter

+       ->fetch_first;

+is_deeply($row, [2, 8]);

+

 test 'empty where select';

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

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