... | ... |
@@ -275,7 +275,7 @@ sub delete { |
275 | 275 |
$sql .= "from " . $self->_q($table) . " $where_clause "; |
276 | 276 |
|
277 | 277 |
# Execute query |
278 |
- return $self->execute($sql, $where_param, table => $table, %args); |
|
278 |
+ return $self->execute($sql, $where_param, %args); |
|
279 | 279 |
} |
280 | 280 |
|
281 | 281 |
sub delete_all { shift->delete(allow_delete_all => 1, @_) } |
... | ... |
@@ -639,7 +639,7 @@ sub insert { |
639 | 639 |
. $self->values_clause($param, {wrap => $wrap}) . " "; |
640 | 640 |
|
641 | 641 |
# Execute query |
642 |
- return $self->execute($sql, $param, table => $table, %args); |
|
642 |
+ return $self->execute($sql, $param, %args); |
|
643 | 643 |
} |
644 | 644 |
|
645 | 645 |
sub update_or_insert { |
... | ... |
@@ -864,10 +864,11 @@ sub select { |
864 | 864 |
my ($self, %args) = @_; |
865 | 865 |
|
866 | 866 |
# Arguments |
867 |
- my $table = delete $args{table}; |
|
867 |
+ my $table = $args{table}; |
|
868 | 868 |
my $tables = ref $table eq 'ARRAY' ? $table |
869 | 869 |
: defined $table ? [$table] |
870 | 870 |
: []; |
871 |
+ $args{table} = $tables; |
|
871 | 872 |
my $columns = $args{column}; |
872 | 873 |
my $where = $args{where} || {}; |
873 | 874 |
my $join = $args{join} || []; |
... | ... |
@@ -973,7 +974,7 @@ sub select { |
973 | 974 |
if $relation; |
974 | 975 |
|
975 | 976 |
# Execute query |
976 |
- my $result = $self->execute($sql, $where_param, table => $tables, %args); |
|
977 |
+ my $result = $self->execute($sql, $where_param, %args); |
|
977 | 978 |
|
978 | 979 |
return $result; |
979 | 980 |
} |
... | ... |
@@ -1105,7 +1106,7 @@ sub update { |
1105 | 1106 |
my $param; |
1106 | 1107 |
$param = shift if @_ % 2; |
1107 | 1108 |
my %args = @_; |
1108 |
- my $table = delete $args{table} || ''; |
|
1109 |
+ my $table = $args{table} || ''; |
|
1109 | 1110 |
croak qq{"table" option must be specified } . _subname |
1110 | 1111 |
unless $table; |
1111 | 1112 |
my $p = delete $args{param} || {}; |
... | ... |
@@ -1166,7 +1167,7 @@ sub update { |
1166 | 1167 |
$sql .= $self->_q($table) . " set $assign_clause $where_clause "; |
1167 | 1168 |
|
1168 | 1169 |
# Execute query |
1169 |
- return $self->execute($sql, $param, table => $table, %args); |
|
1170 |
+ return $self->execute($sql, $param, %args); |
|
1170 | 1171 |
} |
1171 | 1172 |
|
1172 | 1173 |
sub update_all { shift->update(allow_update_all => 1, @_) }; |