- select method column option [COLUMN, as => ALIAS...
...] format is DEPRECATED!
| ... | ... |
@@ -1,4 +1,6 @@ |
| 1 | 1 |
0.1701 |
| 2 |
+ - select method column option [COLUMN, as => ALIAS] format is DEPRECATED! |
|
| 3 |
+ changed to [COLUMN => ALIAS] |
|
| 2 | 4 |
- added EXPERIMENTAL DBIx::Custom::Result header method |
| 3 | 5 |
- added EXPERIMENTAL last_sql attribute method |
| 4 | 6 |
0.1700 |
| ... | ... |
@@ -814,9 +814,12 @@ sub select {
|
| 814 | 814 |
$column = $self->column(%$column) if ref $column eq 'HASH'; |
| 815 | 815 |
} |
| 816 | 816 |
elsif (ref $column eq 'ARRAY') {
|
| 817 |
- croak "Format must be [COLUMN, as => ALIAS] " . _subname |
|
| 818 |
- unless @$column == 3 && $column->[1] eq 'as'; |
|
| 819 |
- $column = join(' ', $column->[0], 'as', $q . $column->[2] . $q);
|
|
| 817 |
+ if (@$column == 3 && $column->[1] eq 'as') {
|
|
| 818 |
+ warn "[COLUMN, as => ALIAS] is DEPRECATED! use [COLUMN => ALIAS]"; |
|
| 819 |
+ splice @$column, 1, 1; |
|
| 820 |
+ } |
|
| 821 |
+ |
|
| 822 |
+ $column = join(' ', $column->[0], 'as', $q . $column->[1] . $q);
|
|
| 820 | 823 |
} |
| 821 | 824 |
unshift @$tables, @{$self->_search_tables($column)};
|
| 822 | 825 |
push @sql, ($column, ','); |
| ... | ... |
@@ -2672,13 +2675,14 @@ This is expanded to the following one by using C<colomn> method. |
| 2672 | 2675 |
person.name as "person.name", |
| 2673 | 2676 |
person.age as "person.age" |
| 2674 | 2677 |
|
| 2675 |
-You can specify array of array reference. |
|
| 2678 |
+You can specify array of array reference, first argument is |
|
| 2679 |
+column name, second argument is alias. |
|
| 2676 | 2680 |
|
| 2677 | 2681 |
column => [ |
| 2678 |
- ['date(book.register_datetime)', as => 'book.register_date'] |
|
| 2682 |
+ ['date(book.register_datetime)' => 'book.register_date'] |
|
| 2679 | 2683 |
]; |
| 2680 | 2684 |
|
| 2681 |
-Alias is quoted and joined. |
|
| 2685 |
+Alias is quoted properly and joined. |
|
| 2682 | 2686 |
|
| 2683 | 2687 |
date(book.register_datetime) as "book.register_date" |
| 2684 | 2688 |
|
| ... | ... |
@@ -2190,14 +2190,14 @@ $result = $model->select_at( |
| 2190 | 2190 |
is_deeply($result->one, |
| 2191 | 2191 |
{key1 => 1, 'table2.key1' => 1});
|
| 2192 | 2192 |
|
| 2193 |
-eval{
|
|
| 2194 |
- $result = $model->select_at( |
|
| 2195 |
- column => [ |
|
| 2196 |
- ['table2.key1', asaaaa => 'table2.key1'] |
|
| 2197 |
- ] |
|
| 2198 |
- ); |
|
| 2199 |
-}; |
|
| 2200 |
-like($@, qr/COLUMN/); |
|
| 2193 |
+$result = $model->select_at( |
|
| 2194 |
+ column => [ |
|
| 2195 |
+ $model->mycolumn(['key1']), |
|
| 2196 |
+ ['table2.key1' => 'table2.key1'] |
|
| 2197 |
+ ] |
|
| 2198 |
+); |
|
| 2199 |
+is_deeply($result->one, |
|
| 2200 |
+ {key1 => 1, 'table2.key1' => 1});
|
|
| 2201 | 2201 |
|
| 2202 | 2202 |
test 'dbi method from model'; |
| 2203 | 2203 |
{
|