| ... | ... |
@@ -1,12 +1,15 @@ |
| 1 |
+0.1686 |
|
| 2 |
+ - |
|
| 1 | 3 |
0.1685 |
| 2 | 4 |
- insert_at, update_at, delete_at, select_at is DEPRECATED! |
| 3 | 5 |
use insert, update, delete, select method and id option. |
| 4 |
- - insert, insert_at, update, update_at can receive odd number arguments, first one is parameter. |
|
| 6 |
+ - insert, insert_at, update, update_at can receive odd number arguments, |
|
| 7 |
+ first one is parameter. |
|
| 5 | 8 |
0.1684 |
| 6 | 9 |
- added DBIx::Custom::Result all method, this is alias for fetch_hash_all |
| 7 | 10 |
- added DBIx::Custom::Result one method, this is alias for fetch_hash_first |
| 8 | 11 |
- DBIx::Custom::Result fetch_hash_first can recieve argument |
| 9 |
- - select() column option can receive hash reference |
|
| 12 |
+ - select() column option can receive hash reference. This is EXPERIMENTAL |
|
| 10 | 13 |
- update_param_tag is DEPRECATED! use update_param instead. |
| 11 | 14 |
- insert_param_tag is DEPRECATED! use insert_param instead. |
| 12 | 15 |
- assing_param_tag is DEPRECATED! use assign_param instead. |
| ... | ... |
@@ -773,7 +773,7 @@ sub new {
|
| 773 | 773 |
} |
| 774 | 774 |
|
| 775 | 775 |
# Register tag |
| 776 |
- $self->register_tag( |
|
| 776 |
+ $self->query_builder->{tags} = {
|
|
| 777 | 777 |
'?' => \&DBIx::Custom::Tag::placeholder, |
| 778 | 778 |
'=' => \&DBIx::Custom::Tag::equal, |
| 779 | 779 |
'<>' => \&DBIx::Custom::Tag::not_equal, |
| ... | ... |
@@ -785,7 +785,7 @@ sub new {
|
| 785 | 785 |
'in' => \&DBIx::Custom::Tag::in, |
| 786 | 786 |
'insert_param' => \&DBIx::Custom::Tag::insert_param, |
| 787 | 787 |
'update_param' => \&DBIx::Custom::Tag::update_param |
| 788 |
- ); |
|
| 788 |
+ }; |
|
| 789 | 789 |
|
| 790 | 790 |
return $self; |
| 791 | 791 |
} |
| ... | ... |
@@ -2339,9 +2339,9 @@ Default is '*' if C<column> is not specified. |
| 2339 | 2339 |
# Default |
| 2340 | 2340 |
$dbi->select(column => '*'); |
| 2341 | 2341 |
|
| 2342 |
-You can specify hash reference. |
|
| 2342 |
+You can specify hash reference. This is EXPERIMENTAL. |
|
| 2343 | 2343 |
|
| 2344 |
- # Hash reference |
|
| 2344 |
+ # Hash reference EXPERIMENTAL |
|
| 2345 | 2345 |
$dbi->select(column => [ |
| 2346 | 2346 |
{book => [qw/author title/]},
|
| 2347 | 2347 |
{person => [qw/name age/]}
|
| ... | ... |
@@ -6,7 +6,7 @@ use utf8; |
| 6 | 6 |
use Encode qw/encode_utf8 decode_utf8/; |
| 7 | 7 |
use Data::Dumper; |
| 8 | 8 |
|
| 9 |
-$SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/};
|
|
| 9 |
+#$SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /DEPRECATED/};
|
|
| 10 | 10 |
|
| 11 | 11 |
BEGIN {
|
| 12 | 12 |
eval { require DBD::SQLite; 1 }
|
| ... | ... |
@@ -110,6 +110,7 @@ test 'Insert query return value'; |
| 110 | 110 |
$dbi->execute($DROP_TABLE->{0});
|
| 111 | 111 |
$dbi->execute($CREATE_TABLE->{0});
|
| 112 | 112 |
$source = "insert into table1 {insert_param key1 key2}";
|
| 113 |
+$DB::single = 1; |
|
| 113 | 114 |
$query = $dbi->create_query($source); |
| 114 | 115 |
$ret_val = $dbi->execute($query, param => {key1 => 1, key2 => 2});
|
| 115 | 116 |
ok($ret_val); |
| ... | ... |
@@ -28,6 +28,7 @@ $dbi = DBIx::Custom->new( |
| 28 | 28 |
result_class => 'g', |
| 29 | 29 |
query_builder => $query_builder, |
| 30 | 30 |
); |
| 31 |
+delete $dbi->{tags};
|
|
| 31 | 32 |
is_deeply($dbi,{user => 'a', password => 'b', dsn => 'c',
|
| 32 | 33 |
filters => {f => 3}, default_bind_filter => 'f',
|
| 33 | 34 |
default_fetch_filter => 'g', result_class => 'g', |