| ... | ... |
@@ -1,4 +1,6 @@ |
| 1 | 1 |
0.1686 |
| 2 |
+ - select() EXPERIMETNAL column option hash format |
|
| 3 |
+ return table.column, not table__column |
|
| 2 | 4 |
- added EXPERIMENTAL col method. |
| 3 | 5 |
- set reserved_word_quote automatically from driver name |
| 4 | 6 |
0.1685 |
| ... | ... |
@@ -877,7 +877,7 @@ sub select {
|
| 877 | 877 |
if ($columns) {
|
| 878 | 878 |
$columns = [$columns] unless ref $columns eq 'ARRAY'; |
| 879 | 879 |
foreach my $column (@$columns) {
|
| 880 |
- $column = $self->column(%$column) if ref $column eq 'HASH'; |
|
| 880 |
+ $column = $self->col(%$column) if ref $column eq 'HASH'; |
|
| 881 | 881 |
unshift @$tables, @{$self->_search_tables($column)};
|
| 882 | 882 |
push @sql, ($column, ','); |
| 883 | 883 |
} |
| ... | ... |
@@ -1839,6 +1839,24 @@ Create assign tag. |
| 1839 | 1839 |
|
| 1840 | 1840 |
This is equal to C<update_param> exept that set is not added. |
| 1841 | 1841 |
|
| 1842 |
+=head2 C<col> EXPERIMETNAL |
|
| 1843 |
+ |
|
| 1844 |
+ my $column = $model->col(book => ['author', 'title']); |
|
| 1845 |
+ |
|
| 1846 |
+Create column clause. The follwoing column clause is created. |
|
| 1847 |
+ |
|
| 1848 |
+ book.author as "book.author", |
|
| 1849 |
+ book.title as "book.title" |
|
| 1850 |
+ |
|
| 1851 |
+=head2 C<column> EXPERIMETNAL |
|
| 1852 |
+ |
|
| 1853 |
+ my $column = $dbi->column(book => ['author', 'title']); |
|
| 1854 |
+ |
|
| 1855 |
+Create column clause. The follwoing column clause is created. |
|
| 1856 |
+ |
|
| 1857 |
+ book.author as book__author, |
|
| 1858 |
+ book.title as book__title |
|
| 1859 |
+ |
|
| 1842 | 1860 |
=head2 C<connect> |
| 1843 | 1861 |
|
| 1844 | 1862 |
my $dbi = DBIx::Custom->connect( |
| ... | ... |
@@ -232,8 +232,8 @@ and implements the following new ones. |
| 232 | 232 |
|
| 233 | 233 |
=head2 C<column> EXPERIMETNAL |
| 234 | 234 |
|
| 235 |
- my $column = $self->column(book => ['author', 'title']); |
|
| 236 |
- my $column = $self->column('book');
|
|
| 235 |
+ my $column = $model->column(book => ['author', 'title']); |
|
| 236 |
+ my $column = $model->column('book');
|
|
| 237 | 237 |
|
| 238 | 238 |
Create column clause. The follwoing column clause is created. |
| 239 | 239 |
|
| ... | ... |
@@ -244,8 +244,8 @@ If column names is omitted, C<columns> attribute of the model is used. |
| 244 | 244 |
|
| 245 | 245 |
=head2 C<col> EXPERIMETNAL |
| 246 | 246 |
|
| 247 |
- my $column = $self->col(book => ['author', 'title']); |
|
| 248 |
- my $column = $self->col('book');
|
|
| 247 |
+ my $column = $model->col(book => ['author', 'title']); |
|
| 248 |
+ my $column = $model->col('book');
|
|
| 249 | 249 |
|
| 250 | 250 |
Create column clause. The follwoing column clause is created. |
| 251 | 251 |
|
| ... | ... |
@@ -268,13 +268,6 @@ you don't have to specify C<table> option. |
| 268 | 268 |
Same as C<delete_all()> of L<DBIx::Custom> except that |
| 269 | 269 |
you don't have to specify C<table> option. |
| 270 | 270 |
|
| 271 |
-=head2 C<delete_at> |
|
| 272 |
- |
|
| 273 |
- $table->delete_at(...); |
|
| 274 |
- |
|
| 275 |
-Same as C<delete()> of L<DBIx::Custom> except that |
|
| 276 |
-you don't have to specify C<table> and C<primary_key> option. |
|
| 277 |
- |
|
| 278 | 271 |
=head2 C<insert> |
| 279 | 272 |
|
| 280 | 273 |
$table->insert(...); |
| ... | ... |
@@ -282,13 +275,6 @@ you don't have to specify C<table> and C<primary_key> option. |
| 282 | 275 |
Same as C<insert()> of L<DBIx::Custom> except that |
| 283 | 276 |
you don't have to specify C<table> option. |
| 284 | 277 |
|
| 285 |
-=head2 C<insert> |
|
| 286 |
- |
|
| 287 |
- $table->insert_at(...); |
|
| 288 |
- |
|
| 289 |
-Same as C<insert_at()> of L<DBIx::Custom> except that |
|
| 290 |
-you don't have to specify C<table> and C<primary_key> option. |
|
| 291 |
- |
|
| 292 | 278 |
=head2 C<method> |
| 293 | 279 |
|
| 294 | 280 |
$model->method( |
| ... | ... |
@@ -335,13 +321,6 @@ Create a L<DBIx::Custom::Table> object. |
| 335 | 321 |
Same as C<select()> of L<DBIx::Custom> except that |
| 336 | 322 |
you don't have to specify C<table> option. |
| 337 | 323 |
|
| 338 |
-=head2 C<select_at> |
|
| 339 |
- |
|
| 340 |
- $table->select_at(...); |
|
| 341 |
- |
|
| 342 |
-Same as C<select_at()> of L<DBIx::Custom> except that |
|
| 343 |
-you don't have to specify C<table> and C<primary_key> option. |
|
| 344 |
- |
|
| 345 | 324 |
=head2 C<update> |
| 346 | 325 |
|
| 347 | 326 |
$table->update(...); |
| ... | ... |
@@ -356,9 +335,30 @@ you don't have to specify C<table> option. |
| 356 | 335 |
Same as C<update_all()> of L<DBIx::Custom> except that |
| 357 | 336 |
you don't have to specify table name. |
| 358 | 337 |
|
| 359 |
-=head2 C<update_at> |
|
| 338 |
+=head2 C<update_at> DEPRECATED! |
|
| 360 | 339 |
|
| 361 | 340 |
$table->update_at(...); |
| 362 | 341 |
|
| 363 | 342 |
Same as C<update_at()> of L<DBIx::Custom> except that |
| 364 | 343 |
you don't have to specify C<table> and C<primary_key> option. |
| 344 |
+ |
|
| 345 |
+=head2 C<select_at> DEPRECATED! |
|
| 346 |
+ |
|
| 347 |
+ $table->select_at(...); |
|
| 348 |
+ |
|
| 349 |
+Same as C<select_at()> of L<DBIx::Custom> except that |
|
| 350 |
+you don't have to specify C<table> and C<primary_key> option. |
|
| 351 |
+ |
|
| 352 |
+=head2 C<insert_at> DEPRECATED! |
|
| 353 |
+ |
|
| 354 |
+ $table->insert_at(...); |
|
| 355 |
+ |
|
| 356 |
+Same as C<insert_at()> of L<DBIx::Custom> except that |
|
| 357 |
+you don't have to specify C<table> and C<primary_key> option. |
|
| 358 |
+ |
|
| 359 |
+=head2 C<delete_at> DEPRECATED! |
|
| 360 |
+ |
|
| 361 |
+ $table->delete_at(...); |
|
| 362 |
+ |
|
| 363 |
+Same as C<delete()> of L<DBIx::Custom> except that |
|
| 364 |
+you don't have to specify C<table> and C<primary_key> option. |
| ... | ... |
@@ -2116,7 +2116,6 @@ $result = $model->select_at( |
| 2116 | 2116 |
); |
| 2117 | 2117 |
is_deeply($result->one, |
| 2118 | 2118 |
{key1 => 1, table2__key1 => 1});
|
| 2119 |
- |
|
| 2120 | 2119 |
$result = $model->select_at( |
| 2121 | 2120 |
column => [ |
| 2122 | 2121 |
$model->mycolumn(['key1']), |
| ... | ... |
@@ -2124,7 +2123,7 @@ $result = $model->select_at( |
| 2124 | 2123 |
] |
| 2125 | 2124 |
); |
| 2126 | 2125 |
is_deeply($result->one, |
| 2127 |
- {key1 => 1, table2__key1 => 1});
|
|
| 2126 |
+ {key1 => 1, 'table2.key1' => 1});
|
|
| 2128 | 2127 |
|
| 2129 | 2128 |
test 'dbi method from model'; |
| 2130 | 2129 |
{
|