Showing 3 changed files with 19 additions and 16 deletions
+2
Changes
... ...
@@ -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
+1 -1
Makefile.PL
... ...
@@ -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
     },
+16 -15
lib/DBIx/Custom.pm
... ...
@@ -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/) {