Showing 4 changed files with 9 additions and 7 deletions
+2
Changes
... ...
@@ -1,3 +1,5 @@
1
+0.1700
2
+    - fixed end_filter DEPRECATED warnings bug
1 3
 0.1699
2 4
     - added tag_parse attribute.
3 5
     - added EXPERIMENTAL order method
+1 -1
lib/DBIx/Custom.pm
... ...
@@ -1,7 +1,7 @@
1 1
 package DBIx::Custom;
2 2
 use Object::Simple -base;
3 3
 
4
-our $VERSION = '0.1698';
4
+our $VERSION = '0.1700';
5 5
 use 5.008001;
6 6
 
7 7
 use Carp 'croak';
+4 -4
lib/DBIx/Custom/Guide.pod
... ...
@@ -17,7 +17,7 @@ This module have the following features.
17 17
 
18 18
 =item * Filtering by data type. and you can set filter to any column
19 19
 
20
-=item * Creating where clause flexibly
20
+=item * Creating where clause and order by clause flexibly
21 21
 
22 22
 =item * Support model
23 23
 
... ...
@@ -25,7 +25,7 @@ This module have the following features.
25 25
 
26 26
 =head1 GUIDE
27 27
 
28
-=head2 Connect To Database
28
+=head2 Connect to database
29 29
 
30 30
     use DBIx::Custom;
31 31
     my $dbi = DBIx::Custom->connect(
... ...
@@ -40,7 +40,7 @@ C<dsn> is data source name, C<user> is user name, C<password> is password.
40 40
 
41 41
 C<dbi_option> is L<DBI> option.
42 42
 By default, the following option is set.
43
-Fatal error throw exeption and commit mode is auto commit.
43
+Exeption is thrown when fatal error occur and commit mode is auto commit.
44 44
 
45 45
     {
46 46
         RaiseError  =>  1
... ...
@@ -48,7 +48,7 @@ Fatal error throw exeption and commit mode is auto commit.
48 48
         AutoCommit  =>  1
49 49
     }
50 50
 
51
-=head2 Execute Query
51
+=head2 Execute query
52 52
 
53 53
 =head3 Insert Statement : C<insert>
54 54
 
+2 -2
lib/DBIx/Custom/Result.pm
... ...
@@ -64,7 +64,7 @@ sub fetch {
64 64
     my $type_rule1 = $self->type_rule->{from1} || {};
65 65
     my $type_rule2 = $self->type_rule->{from2} || {};
66 66
     my $filter = $self->filter;
67
-    my $end_filter = $self->end_filter;
67
+    my $end_filter = $self->{end_filter} || {};
68 68
     for (my $i = 0; $i < @$columns; $i++) {
69 69
         
70 70
         # Column
... ...
@@ -124,7 +124,7 @@ sub fetch_hash {
124 124
     # Filter
125 125
     my $hash_row = {};
126 126
     my $filter  = $self->filter;
127
-    my $end_filter = $self->end_filter || {};
127
+    my $end_filter = $self->{end_filter} || {};
128 128
     my $columns = $self->{sth}->{NAME};
129 129
     my $types = $self->{sth}->{TYPE};
130 130
     my $type_rule1 = $self->type_rule->{from1} || {};