- fixed bug that model insert, update, delete selec...
...t can't
... | ... |
@@ -1,3 +1,6 @@ |
1 |
+0.1688 |
|
2 |
+ - fixed bug that model insert, update, delete select can't |
|
3 |
+ odd number arguments |
|
1 | 4 |
0.1687 |
2 | 5 |
- added EXPERIMENTAL type_rule method |
3 | 6 |
- added EXPERIMENTAL execute() type_rule_off option |
... | ... |
@@ -1,6 +1,6 @@ |
1 | 1 |
package DBIx::Custom; |
2 | 2 |
|
3 |
-our $VERSION = '0.1687'; |
|
3 |
+our $VERSION = '0.1688'; |
|
4 | 4 |
|
5 | 5 |
use 5.008001; |
6 | 6 |
use strict; |
... | ... |
@@ -52,13 +52,14 @@ foreach my $method (@methods) { |
52 | 52 |
|
53 | 53 |
my $code = sub { |
54 | 54 |
my $self = shift; |
55 |
- |
|
55 |
+ |
|
56 | 56 |
my @args = ( |
57 | 57 |
table => $self->table, |
58 | 58 |
type => $self->type, |
59 | 59 |
primary_key => $self->primary_key |
60 | 60 |
); |
61 | 61 |
push @args, (join => $self->join) if $method =~ /^select/; |
62 |
+ unshift @args, shift if @_ % 2; |
|
62 | 63 |
|
63 | 64 |
$self->dbi->$method(@args, @_); |
64 | 65 |
}; |
... | ... |
@@ -2405,6 +2405,18 @@ is($row->{key1}, 1); |
2405 | 2405 |
is($row->{key2}, 2); |
2406 | 2406 |
is($row->{key3}, 3); |
2407 | 2407 |
|
2408 |
+$dbi = MyDBI6->connect($NEW_ARGS->{0}); |
|
2409 |
+$dbi->execute($CREATE_TABLE->{1}); |
|
2410 |
+$dbi->model('table1')->insert( |
|
2411 |
+ {key3 => 3}, |
|
2412 |
+ id => [1, 2] |
|
2413 |
+); |
|
2414 |
+$result = $dbi->model('table1')->select; |
|
2415 |
+$row = $result->one; |
|
2416 |
+is($row->{key1}, 1); |
|
2417 |
+is($row->{key2}, 2); |
|
2418 |
+is($row->{key3}, 3); |
|
2419 |
+ |
|
2408 | 2420 |
test 'update and id option'; |
2409 | 2421 |
$dbi = DBIx::Custom->connect($NEW_ARGS->{0}); |
2410 | 2422 |
$dbi->execute($CREATE_TABLE->{1}); |