... | ... |
@@ -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,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'; |
... | ... |
@@ -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 |
|
... | ... |
@@ -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} || {}; |