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