@@ -1,4 +1,5 @@

 0.1686

+    - added EXPERIMENTAL col method.

     - set reserved_word_quote automatically from driver name

 0.1685

     - insert_at, update_at, delete_at, select_at is DEPRECATED!

@@ -171,6 +171,20 @@ sub assign_param {

     return $tag;

 }

+sub col {

+    my ($self, $table, $columns) = @_;

+    

+    # Reserved word quote

+    my $q = $self->reserved_word_quote;

+    

+    # Column clause

+    my @column;

+    $columns ||= [];

+    push @column, "$q$table$q.$q$_$q as $q${table}.$_$q" for @$columns;

+    

+    return join (', ', @column);

+}

+

 sub column {

     my ($self, $table, $columns) = @_;

@@ -85,6 +85,23 @@ sub column {

     return $self->dbi->column($table, $columns);

 }

+sub col {

+    my ($self, $table, $columns) = @_;

+    

+    $self->{_table_alias} ||= {};

+    my $dist;

+    $dist = $self->dbi->{_table_alias}{$table}

+          ? $self->dbi->{_table_alias}{$table}

+          : $table;

+    

+    $self->dbi->{_model_from} ||= {};

+    my $model = $self->dbi->{_model_from}->{$dist};

+    

+    $columns ||= $self->model($model)->columns;

+    

+    return $self->dbi->col($table, $columns);

+}

+

 sub DESTROY { }

 sub method {

@@ -225,6 +242,18 @@ Create column clause. The follwoing column clause is created.

 If column names is omitted, C<columns> attribute of the model is used.

+=head2 C<col> EXPERIMETNAL

+

+    my $column = $self->col(book => ['author', 'title']);

+    my $column = $self->col('book');

+

+Create column clause. The follwoing column clause is created.

+

+    book.author as "book.author",

+    book.title as "book.title"

+

+If column names is omitted, C<columns> attribute of the model is used.

+

 =head2 C<delete>

     $table->delete(...);

@@ -1457,6 +1457,12 @@ $result = $dbi->select(

 );

 is($result->fetch_first->[0], 'B');

+$result = $dbi->select(

+    table => 'company', relation => {'company.location_id' => 'location.id'},

+    column => ['location.name as "location.name"']

+);

+is($result->fetch_first->[0], 'B');

+

 test 'Model class';

 use MyDBI1;

 $dbi = MyDBI1->connect($NEW_ARGS->{0});

@@ -2516,4 +2522,26 @@ is($row->{key1}, 1);

 is($row->{key2}, 2);

 is($row->{key3}, 3);

+test 'col';

+$dbi = MyDBI7->connect($NEW_ARGS->{0});

+$dbi->execute($CREATE_TABLE->{0});

+$dbi->execute($CREATE_TABLE->{2});

+$dbi->setup_model;

+$dbi->insert(table => 'table1', param => {key1 => 1, key2 => 2});

+$dbi->insert(table => 'table2', param => {key1 => 1, key3 => 3});

+$model = $dbi->model('table1');

+$result = $model->select(

+    column => [$model->col('table2')],

+    where => {'table1.key1' => 1}

+);

+is_deeply($result->one,

+          {'table2.key1' => 1, 'table2.key3' => 3});

+

+$result = $model->select(

+    column => [$model->col('table2' => [qw/key1 key3/])],

+    where => {'table1.key1' => 1}

+);

+is_deeply($result->one,

+          {'table2.key1' => 1, 'table2.key3' => 3});

+

 =cut