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