... | ... |
@@ -1,3 +1,5 @@ |
1 |
+0.1630 |
|
2 |
+ fix test bug |
|
1 | 3 |
0.1629 |
2 | 4 |
renamed auto_filter to apply_filter |
3 | 5 |
changed apply_filter method arguments |
... | ... |
@@ -13,7 +13,7 @@ WriteMakefile( |
13 | 13 |
PL_FILES => {}, |
14 | 14 |
PREREQ_PM => { |
15 | 15 |
'Test::More' => 0, |
16 |
- 'Object::Simple' => '3.0201', |
|
16 |
+ 'Object::Simple' => 3.0616, |
|
17 | 17 |
'DBD::SQLite' => '1.25', |
18 | 18 |
'DBI' => '1.605' |
19 | 19 |
}, |
... | ... |
@@ -1,6 +1,6 @@ |
1 | 1 |
package DBIx::Custom; |
2 | 2 |
|
3 |
-our $VERSION = '0.1629'; |
|
3 |
+our $VERSION = '0.1630'; |
|
4 | 4 |
|
5 | 5 |
use 5.008001; |
6 | 6 |
use strict; |
... | ... |
@@ -13,23 +13,24 @@ use DBI; |
13 | 13 |
use DBIx::Custom::Result; |
14 | 14 |
use DBIx::Custom::Query; |
15 | 15 |
use DBIx::Custom::QueryBuilder; |
16 |
-use DBIx::Custom::Model; |
|
17 | 16 |
use Encode qw/encode_utf8 decode_utf8/; |
18 | 17 |
|
19 |
-__PACKAGE__->attr([qw/data_source dbh |
|
20 |
- dbi_options password user/]); |
|
18 |
+__PACKAGE__->attr( |
|
19 |
+ [qw/data_source dbh dbi_options password user/], |
|
21 | 20 |
|
22 |
-__PACKAGE__->attr(cache => 1); |
|
23 |
-__PACKAGE__->attr(filters => sub { |
|
24 |
- { |
|
25 |
- encode_utf8 => sub { encode_utf8($_[0]) }, |
|
26 |
- decode_utf8 => sub { decode_utf8($_[0]) } |
|
27 |
- } |
|
28 |
-}); |
|
29 |
-__PACKAGE__->attr(filter_check => 1); |
|
30 |
-__PACKAGE__->attr(query_builder => sub {DBIx::Custom::QueryBuilder->new}); |
|
31 |
-__PACKAGE__->attr(result_class => 'DBIx::Custom::Result'); |
|
32 |
-__PACKAGE__->attr(table_class => 'DBIx::Custom::Table'); |
|
21 |
+ cache => 1, |
|
22 |
+ filters => sub { |
|
23 |
+ { |
|
24 |
+ encode_utf8 => sub { encode_utf8($_[0]) }, |
|
25 |
+ decode_utf8 => sub { decode_utf8($_[0]) } |
|
26 |
+ } |
|
27 |
+ }, |
|
28 |
+ |
|
29 |
+ filter_check => 1, |
|
30 |
+ query_builder => sub {DBIx::Custom::QueryBuilder->new}, |
|
31 |
+ result_class => 'DBIx::Custom::Result', |
|
32 |
+ table_class => 'DBIx::Custom::Table' |
|
33 |
+); |
|
33 | 34 |
|
34 | 35 |
# DBI methods |
35 | 36 |
foreach my $method (qw/begin_work commit rollback/) { |