Showing 6 changed files with 27 additions and 41 deletions
+1 -1
Build.PL
... ...
@@ -11,7 +11,7 @@ my $builder = Module::Build->new(
11 11
         'Test::More' => 0,
12 12
     },
13 13
     requires => {
14
-        'Object::Simple' => 3.0101,
14
+        'Object::Simple' => 3.0201,
15 15
         'DBI'            => 1.605,
16 16
         'DBD::SQLite'    => 1.25,
17 17
         'Time::Piece'    => 1.15
+2
Changes
... ...
@@ -1,3 +1,5 @@
1
+0.0905
2
+  catch up with Object::Simple update
1 3
 0.0904
2 4
   cleanup
3 5
 0.0903
+12 -34
lib/DBIx/Custom.pm
... ...
@@ -1,5 +1,5 @@
1 1
 package DBIx::Custom;
2
-use base 'Object::Simple::Base';
2
+use base 'Object::Simple';
3 3
 
4 4
 use strict;
5 5
 use warnings;
... ...
@@ -13,20 +13,22 @@ __PACKAGE__->attr('dbh');
13 13
 
14 14
 __PACKAGE__->class_attr(_query_caches     => sub { {} });
15 15
 __PACKAGE__->class_attr(_query_cache_keys => sub { [] });
16
-__PACKAGE__->class_attr('query_cache_max', default => 50, inherit => 'scalar');
17 16
 
18
-__PACKAGE__->dual_attr([qw/user password data_source/], inherit => 'scalar');
19
-__PACKAGE__->dual_attr([qw/database host port/],        inherit => 'scalar');
20
-__PACKAGE__->dual_attr([qw/bind_filter fetch_filter/],  inherit => 'scalar');
17
+__PACKAGE__->class_attr('query_cache_max', default => 50,
18
+                                           inherit => 'scalar_copy');
19
+
20
+__PACKAGE__->dual_attr([qw/user password data_source/], inherit => 'scalar_copy');
21
+__PACKAGE__->dual_attr([qw/database host port/],        inherit => 'scalar_copy');
22
+__PACKAGE__->dual_attr([qw/bind_filter fetch_filter/],  inherit => 'scalar_copy');
21 23
 
22 24
 __PACKAGE__->dual_attr([qw/no_bind_filters no_fetch_filters/],
23
-                       default => sub { [] }, inherit => 'array');
25
+                       default => sub { [] }, inherit => 'array_copy');
24 26
 
25 27
 __PACKAGE__->dual_attr([qw/options filters formats/],
26
-                       default => sub { {} }, inherit => 'hash');
28
+                       default => sub { {} }, inherit => 'hash_copy');
27 29
 
28 30
 __PACKAGE__->dual_attr('result_class', default => 'DBIx::Custom::Result',
29
-                                       inherit   => 'scalar');
31
+                                       inherit => 'scalar_copy');
30 32
 
31 33
 __PACKAGE__->dual_attr('sql_tmpl', default => sub {DBIx::Custom::SQL::Template->new},
32 34
                                    inherit   => sub {$_[0] ? $_[0]->clone : undef});
... ...
@@ -724,11 +726,11 @@ DBIx::Custom - Customizable DBI
724 726
 
725 727
 =head1 VERSION
726 728
 
727
-Version 0.0904
729
+Version 0.0905
728 730
 
729 731
 =cut
730 732
 
731
-our $VERSION = '0.0904';
733
+our $VERSION = '0.0905';
732 734
 
733 735
 =head1 SYNOPSYS
734 736
     
... ...
@@ -934,30 +936,6 @@ Set and get query cache max
934 936
 
935 937
 Default value is 50
936 938
 
937
-=head2 Accessor summary
938
-
939
-                       Accessor type       Variable type
940
-    user               class and object    scalar(string)
941
-    password           class and object    scalar(string)
942
-    data_source        class and object    scalar(string)
943
-    database           class and object    scalar(string)
944
-    host               class and object    scalar(string)
945
-
946
-    port               class and object    scalar(int)
947
-    options            class and object    hash(string)
948
-    sql_tmpl           class and object    scalar(DBIx::Custom::SQL::Template)
949
-    filters            class and object    hash(code ref)
950
-    formats            class and object    hash(string)
951
-
952
-    bind_filter        class and object    scalar(code ref)
953
-    fetch_filter       class and object    scalar(code ref)
954
-    no_bind_filters    class and object    array(string)
955
-    no_fetch_filters   class and object    array(string)
956
-    result_class       class and object    scalar(string)
957
-
958
-    dbh                object              scalar(DBI)
959
-    query_cache_max    class               scalar(int)
960
-
961 939
 =head1 Methods
962 940
 
963 941
 =head2 connect
+5 -1
lib/DBIx/Custom/Query.pm
... ...
@@ -1,5 +1,5 @@
1 1
 package DBIx::Custom::Query;
2
-use base 'Object::Simple::Base';
2
+use base 'Object::Simple';
3 3
 
4 4
 use strict;
5 5
 use warnings;
... ...
@@ -121,3 +121,7 @@ Copyright 2009 Yuki Kimoto, all rights reserved.
121 121
 
122 122
 This program is free software; you can redistribute it and/or modify it
123 123
 under the same terms as Perl itself.
124
+
125
+=cut
126
+
127
+1;
+2
lib/DBIx/Custom/Result.pm
... ...
@@ -390,3 +390,5 @@ This program is free software; you can redistribute it and/or modify it
390 390
 under the same terms as Perl itself.
391 391
 
392 392
 =cut
393
+
394
+1;
+5 -5
lib/DBIx/Custom/SQL/Template.pm
... ...
@@ -1,5 +1,5 @@
1 1
 package DBIx::Custom::SQL::Template;
2
-use base 'Object::Simple::Base';
2
+use base 'Object::Simple';
3 3
 
4 4
 use strict;
5 5
 use warnings;
... ...
@@ -8,12 +8,12 @@ use Carp 'croak';
8 8
 use DBIx::Custom::Query;
9 9
 
10 10
 __PACKAGE__->dual_attr('tag_processors', default => sub { {} },
11
-                                         inherit   => 'hash');
11
+                                         inherit => 'hash_copy');
12 12
 
13
-__PACKAGE__->dual_attr('tag_start', default => '{', inherit => 'scalar');
14
-__PACKAGE__->dual_attr('tag_end',   default => '}', inherit => 'scalar');
13
+__PACKAGE__->dual_attr('tag_start', default => '{', inherit => 'scalar_copy');
14
+__PACKAGE__->dual_attr('tag_end',   default => '}', inherit => 'scalar_copy');
15 15
 
16
-__PACKAGE__->dual_attr('tag_syntax', inherit => 'scalar');
16
+__PACKAGE__->dual_attr('tag_syntax', inherit => 'scalar_copy');
17 17
 
18 18
 __PACKAGE__->add_tag_processor(
19 19
     '?'      => \&DBIx::Custom::SQL::Template::TagProcessors::expand_basic_tag,