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