... | ... |
@@ -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 |
... | ... |
@@ -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 |
... | ... |
@@ -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 |
... | ... |
@@ -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; |
... | ... |
@@ -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; |
... | ... |
@@ -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, |