@@ -1,82 +1,84 @@

+0.1659

+    - added select() all_column option

 0.1658

-    - added experimental DBIx::Custom::Model column() prefix option.

+    - added EXPERIMENTAL DBIx::Custom::Model column() prefix option.

     - fixed select_at join column invalid bug

     - added DBIx::Custom::Model column() attribute 

 0.1657

-    - remaned experimental safty_charcter to safty_name

+    - remaned EXPERIMENTAL safty_charcter to safty_name

     - safty_charcter is changed, set only one character regex.

 0.1656

     - fixed some select() join opition bug

 0.1655

-    - added experimental DBIx::Custom::Model join attribute

-    - added experimental select() join option

+    - added EXPERIMENTAL DBIx::Custom::Model join attribute

+    - added EXPERIMENTAL select() join option

     - deprecated select() relation option

-    - added experimental update_param and insert_param

-    - remove experimental DBIx::Custom::Model relation

+    - added EXPERIMENTAL update_param and insert_param

+    - remove EXPERIMENTAL DBIx::Custom::Model relation

 0.1654

     - selection can contain where clause.

 0.1653

-    - added experimental DBIx::Custom::Result remove_filter()

-    - added experimental DBIx::Custom::Result remove_end_filter()

-    - added experimental DBIx::Custom::Model insert_at()

-    - added experimental insert_at()

+    - added EXPERIMENTAL DBIx::Custom::Result remove_filter()

+    - added EXPERIMENTAL DBIx::Custom::Result remove_end_filter()

+    - added EXPERIMENTAL DBIx::Custom::Model insert_at()

+    - added EXPERIMENTAL insert_at()

     - improved error message

 0.1652

     - all filter can receive array reference and receiving hash reference is DEPRECATED!

 0.1651

-    - add experimental DBIx::Custom::Model filter attribute.

+    - add EXPERIMENTAL DBIx::Custom::Model filter attribute.

 0.1650

-    - add experimental DBIx::Custom::Model name() attribute

+    - add EXPERIMENTAL DBIx::Custom::Model name() attribute

 0.1649

-    - add experimental DBIx::Custom::Model column_clause() method.

+    - add EXPERIMENTAL DBIx::Custom::Model column_clause() method.

     - select method column option can receive string.

     - DBIx::Custom::Model select() and select_at() think about relation attirbute

 0.1648

-    - add experimental DBIx::Custom::Model relation() attribute

-    - add experimental update_at(), delete_at(), select_at()

-    - add experimental setup_model()

-    - add experimental DBIx::Custom::Model columns attirbute

-    - add experimental DBIx::Custom::Model foreign_key() attribute 

-    - add experimental models() attribute

+    - add EXPERIMENTAL DBIx::Custom::Model relation() attribute

+    - add EXPERIMENTAL update_at(), delete_at(), select_at()

+    - add EXPERIMENTAL setup_model()

+    - add EXPERIMENTAL DBIx::Custom::Model columns attirbute

+    - add EXPERIMENTAL DBIx::Custom::Model foreign_key() attribute 

+    - add EXPERIMENTAL models() attribute

 0.1647

     - add default_dbi_option()

 0.1646

     - add feture. all model class in namespace is included by include_model

-    - rename experimental include_table to include_model

-    - rename experimental table to model

-    - rename experimental DBIx::Custom::Table to DBIx::Custom::Model

-    - remame experimental DBIx::Custom::Table::name() to DBIx::Custom::Model::table();

+    - rename EXPERIMENTAL include_table to include_model

+    - rename EXPERIMENTAL table to model

+    - rename EXPERIMENTAL DBIx::Custom::Table to DBIx::Custom::Model

+    - remame EXPERIMENTAL DBIx::Custom::Table::name() to DBIx::Custom::Model::table();

 0.1645

-    - removed experimental base_table() for class expandability.

-    - experimental table() can't set table object any more.

-    - added experimental include_table().

+    - removed EXPERIMENTAL base_table() for class expandability.

+    - EXPERIMENTAL table() can't set table object any more.

+    - added EXPERIMENTAL include_table().

 0.1644

     - update pod

 0.1643

-    - add experimental selection option to select()

-    - add experimental table tag

+    - add EXPERIMENTAL selection option to select()

+    - add EXPERIMENTAL table tag

     - fix bug : filter can't overwirite undef value.

-    - add experimental feature to apply_filter(). you can apply end filter.

-    - add experimental feature to apply_filter(). TABLE__COLUMN is filterded now.

+    - add EXPERIMENTAL feature to apply_filter(). you can apply end filter.

+    - add EXPERIMENTAL feature to apply_filter(). TABLE__COLUMN is filterded now.

 0.1642

-    - removed experimental DBIx::Custom::Table base() method

+    - removed EXPERIMENTAL DBIx::Custom::Table base() method

     - table created by tabled method can call base_$method correponding to base_table's one

 0.1641

     - select() where can't receive array reference to prevend SQL injection easily(not backward compatible. sorry. use where() instead)

-    - added experimental safety_column_name attribute

+    - added EXPERIMENTAL safety_column_name attribute

     - fix SQL injection security hole about column name

 0.1640

     - autoload DBI method

-    - removed experimental expand

+    - removed EXPERIMENTAL expand

 0.1639

     - improved delete() and update() where option. you can use DBIx::Custom::Where object

-    - added experimental not_exists()

+    - added EXPERIMENTAL not_exists()

 0.1638

     - table object call dbi object method if not found method.

-    - added experimental base_table attribute and removed experimental table_class attribute

+    - added EXPERIMENTAL base_table attribute and removed EXPERIMENTAL table_class attribute

     - renamed helper to method.

-    - added experimental DBIx::Custom::Result::stash()

-    - renamed experimental DBIx::Custom::Table helper to method

+    - added EXPERIMENTAL DBIx::Custom::Result::stash()

+    - renamed EXPERIMENTAL DBIx::Custom::Table helper to method

 0.1637

     - renamed dbi_options to dbi_option. dbi_options is available, but deprecated.

     - renamed DBIx::Custom::TagProcessor to DBIx::Custom::Tag, and function names is cleanuped.

@@ -85,7 +87,7 @@

     - improved error message

     - build all clause if param is undefined.

     - each_column callback receive self as first argument.

-    - removed experimental txn_scope

+    - removed EXPERIMENTAL txn_scope

 0.1636

     - added tests and cleanup

 0.1635

@@ -96,15 +98,15 @@

 0.1633

     - fixed test

 0.1632

-    - added experimental where method

-    - added experimental DBIx::Custom::Where.

+    - added EXPERIMENTAL where method

+    - added EXPERIMENTAL DBIx::Custom::Where.

     - removed DBIx::Custom::Or

 0.1631

-    - added experimental DBIx::Custom::Result end_filter method

-    - experimental extended select method's where option

+    - added EXPERIMENTAL DBIx::Custom::Result end_filter method

+    - EXPERIMENTAL extended select method's where option

     - fix select method empty where failed bug

-    - added experimental suger method query option

-    - added experimental or method

+    - added EXPERIMENTAL suger method query option

+    - added EXPERIMENTAL or method

 0.1630

     - fix test bug

 0.1629

@@ -118,15 +120,15 @@

     - fixed connect method bug

 0.1627

     - added insert, update, update_all, delete, delete_all, select method to DBIx::Custom::Table

-    - added experimental txn_scope

+    - added EXPERIMENTAL txn_scope

 0.1626

     - simplified DBIx::Custom::Model and DBIx::Custom::Table

 0.1625

-    - added experimental DBIx::Custom::Model and DBIx::Custom::Table

+    - added EXPERIMENTAL DBIx::Custom::Model and DBIx::Custom::Table

 0.1624

-    - added experimental iterate_all_columns method.

+    - added EXPERIMENTAL iterate_all_columns method.

 0.1623

-    - added experimental auto_filter method

+    - added EXPERIMENTAL auto_filter method

     - deprecated default_bind_filter and default_fetch_filter because these are global effect.

     - changed defautl_bind_filter and default_fetch_filter attributes to methods.

     - changed DBIx::Custom::Result default_filter attribute to method

@@ -142,14 +144,14 @@

     - updated document

 0.1619

     - updated document

-    - added experimental expand method

+    - added EXPERIMENTAL expand method

 0.1618

     - added helper method

     - added begin_work, commit, and rollback method

 0.1617

     - L<DBIx::Custom> is now stable. APIs keep backword compatible in the feature.

 0.1616

-    - removed experimental register_method(), and methods attribute, because it is too magical

+    - removed EXPERIMENTAL register_method(), and methods attribute, because it is too magical

 0.1615

     - fixed DBIx::Custom::QueryBuilder build_query() bug

     - required Perl 5.008001 to use @CARP_NOT 

@@ -158,8 +160,8 @@

     - enable escaping '{' and '}' in the source of SQL

     - fixed Carp Carp trust relationship

 0.1613

-    - added experimental register_method() method

-    - added experimental methods attribute

+    - added EXPERIMENTAL register_method() method

+    - added EXPERIMENTAL methods attribute

 0.1612

     - added tests

     - updated document

@@ -620,19 +620,8 @@ sub register_filter {

 sub register_tag { shift->query_builder->register_tag(@_) }

 our %VALID_SELECT_ARGS

-  = map { $_ => 1 } qw/table column where append relation filter query selection join/;

-

-sub _need_tables {

-    my ($self, $tree, $need_tables, $tables) = @_;

-    

-    foreach my $table (@$tables) {

-        

-        if ($tree->{$table}) {

-            $need_tables->{$table} = 1;

-            $self->_need_tables($tree, $need_tables, [$tree->{$table}{parent}])

-        }

-    }

-}

+  = map { $_ => 1 } qw/table column where append relation filter query

+                       selection join all_column/;

 sub select {

     my ($self, %args) = @_;

@@ -649,7 +638,8 @@ sub select {

                : defined $table ? [$table]

                : [];

     my $columns   = $args{column} || [];

-    $columns = [$columns] unless ref $columns;

+    $columns = [$columns] unless ref $columns eq 'ARRAY';

+    my $all_column = $args{all_column};

     my $selection = $args{selection} || '';

     my $where     = $args{where} || {};

     my $append    = $args{append};

@@ -674,19 +664,49 @@ sub select {

         unshift @$tables, @{$self->_tables($selection)};

     }

-    # Column names and table name

-    else {

-        # Column names

-        if (@$columns) {

-            foreach my $column (@$columns) {

-                unshift @$tables, @{$self->_tables($column)};

-                push @sql, ($column, ',');

+    # Clumn clause, countains all columns of joined tables

+    elsif ($all_column) {

+    

+        # Find tables

+        my $main_table = $tables->[-1] || '';

+        my %tables;

+        foreach my $j (@$join) {

+            my $tables = $self->_tables($j);

+            foreach my $table (@$tables) {

+                $tables{$table} = 1;

             }

-            pop @sql if $sql[-1] eq ',';

         }

-        else { push @sql, '*' }

+        delete $tables{$main_table};

+        my @column_clause;

-        # Table

+        # Column clause of main table

+        push @sql, $self->model($main_table)->column_clause;

+        push @sql, ',';

+        

+        # Column cluase of other tables

+        foreach my $table (keys %tables) {

+            unshift @$tables, $table;

+            push @sql, $self->model($table)

+                            ->column_clause(prefix => "${table}__");

+            push @sql, ',';

+        }

+        pop @sql if $sql[-1] eq ',';

+    }

+    

+    # Column clause

+    elsif (@$columns) {

+        foreach my $column (@$columns) {

+            unshift @$tables, @{$self->_tables($column)};

+            push @sql, ($column, ',');

+        }

+        pop @sql if $sql[-1] eq ',';

+    }

+    

+    # "*" is default

+    else { push @sql, '*' }

+    

+    # Table

+    unless ($selection) {

         push @sql, 'from';

         if ($args{relation}) {

             my $found = {};

@@ -752,7 +772,7 @@ sub select {

 our %VALID_SELECT_AT_ARGS

   = map { $_ => 1 } qw/table column where append relation filter query selection

-                       param primary_key join/;

+                       param primary_key join all_column/;

 sub select_at {

     my ($self, %args) = @_;

@@ -1125,6 +1145,18 @@ sub _croak {

     }

 }

+sub _need_tables {

+    my ($self, $tree, $need_tables, $tables) = @_;

+    

+    foreach my $table (@$tables) {

+        

+        if ($tree->{$table}) {

+            $need_tables->{$table} = 1;

+            $self->_need_tables($tree, $need_tables, [$tree->{$table}{parent}])

+        }

+    }

+}

+

 sub _tables {

     my ($self, $source) = @_;

@@ -1438,7 +1470,7 @@ default to the following values.

 Filters, registered by C<register_filter()>.

-=head2 C<(experimental) models>

+=head2 C<models EXPERIMENTAL>

     my $models = $dbi->models;

     $dbi       = $dbi->models(\%models);

@@ -1466,7 +1498,7 @@ Query builder, default to L<DBIx::Custom::QueryBuilder> object.

 Result class, default to L<DBIx::Custom::Result>.

-=head2 C<(experimental) safety_character>

+=head2 C<safety_character EXPERIMENTAL>

     my $safety_character = $self->safety_character;

     $dbi                 = $self->safety_character($character);

@@ -1487,7 +1519,7 @@ L<DBIx::Custom> inherits all methods from L<Object::Simple>

 and use all methods of L<DBI>

 and implements the following new ones.

-=head2 C<(experimental) apply_filter>

+=head2 C<apply_filter EXPERIMENTAL>

     $dbi->apply_filter(

         'book',

@@ -1555,7 +1587,7 @@ C<where> is where clause. this must be hash reference.

 C<append> is a string added at the end of the SQL statement.

 C<filter> is filters when parameter binding is executed.

 C<query> is if you don't execute sql and get L<DBIx::Custom::Query> object as return value.

-default to 0. This is experimental.

+default to 0. This is EXPERIMENTAL.

 Return value of C<delete()> is the count of affected rows.

 =head2 C<delete_all>

@@ -1567,7 +1599,7 @@ Arguments is same as C<delete> method,

 except that C<delete_all> don't have C<where> argument.

 Return value of C<delete_all()> is the count of affected rows.

-=head3 C<(experimental) delete_at()>

+=head3 C<delete_at() EXPERIMENTAL>

 To delete row by using primary key, use C<delete_at()>

@@ -1604,11 +1636,11 @@ C<param> is the pairs of column name value. this must be hash reference.

 C<append> is a string added at the end of the SQL statement.

 C<filter> is filters when parameter binding is executed.

 C<query> is if you don't execute sql and get L<DBIx::Custom::Query> object as return value.

-default to 0. This is experimental.

+default to 0. This is EXPERIMENTAL.

 This is overwrites C<default_bind_filter>.

 Return value of C<insert()> is the count of affected rows.

-=head3 C<(experimental) insert_at()>

+=head3 C<insert_at() EXPERIMENTAL>

 To insert row by using primary key, use C<insert_at()>

@@ -1624,7 +1656,7 @@ NOTE that you must pass array reference as C<where>.

 If C<param> contains primary key,

 the key and value is delete from C<param>.

-=head2 C<(experimental) insert_param>

+=head2 C<insert_param EXPERIMENTAL>

     my $insert_param = $dbi->insert_param({title => 'a', age => 2});

@@ -1632,7 +1664,7 @@ Create insert parameter tag.

     {title => 'a', age => 2}   ->   {insert_param title age}

-=head2 C<(experimental) each_column>

+=head2 C<each_column EXPERIMENTAL>

     $dbi->each_column(

         sub {

@@ -1651,7 +1683,7 @@ You can do anything in callback.

 Callback receive four arguments, dbi object, table name,

 column name and column information.

-=head2 C<(experimental) include_model>

+=head2 C<include_model EXPERIMENTAL>

     $dbi->include_model(

         'MyModel' => [

@@ -1694,7 +1726,7 @@ you can do like this.

         ]

     );

-=head2 C<(experimental) method>

+=head2 C<method EXPERIMENTAL>

     $dbi->method(

         update_or_insert => sub {

@@ -1719,7 +1751,7 @@ Register method. These method is called from L<DBIx::Custom> object directory.

 Create a new L<DBIx::Custom> object.

-=head2 C<(experimental) not_exists>

+=head2 C<not_exists EXPERIMENTAL>

     my $not_exists = $dbi->not_exists;

@@ -1773,30 +1805,80 @@ Rollback transaction.

 This is same as L<DBI>'s C<rollback>.

 =head2 C<select>

-    

+

     my $result = $dbi->select(

-        table     => $table,

-        column    => [@column],

-        where     => \%where,

-        append    => $append,

-        relation  => \%relation,

-        join => ['left outer join company on book.company_id = company.id']

-        filter    => \%filter,

-        query     => 1,

-        selection => $selection

+        table  => 'book',

+        column => ['author', 'title'],

+        where  => {author => 'Ken'},

     );

-

+    

 Execute select statement.

-C<select> method have C<table>, C<column>, C<where>, C<append>,

-C<relation> and C<filter> arguments.

-C<table> is a table name.

-C<column> is column names. this is array reference or string.

+

+The following opitons are currently available.

+

+=over 4

+

+=item C<table>

+

+Table name.

+

+    $dbi->select(table => 'book', ...);

+

+=item C<column>

+

+Column clause. This is array reference or constant value.

+

+    # Hash refernce

+    $dbi->select(column => ['author', 'title']);

+    

+    # Constant value

+    $dbi->select(column => 'author');

+

+Default is '*' unless C<column> is specified.

+

+    # Default

+    $dbi->select(column => '*');

+

+=item C<all_column EXPERIMENTAL>

+

+Colum clause, contains all columns. This is true or false value

+

+    $dbi->select(all_column => 1, ...);

+

+If main table is C<book> and joined table is C<company>,

+This create the following column clause.

+

+    book.author as author

+    book.company_id as company_id

+    company.id as company__id

+    company.name as company__name

+

+Columns of main table is consist of only column name,

+Columns of joined table is consist of table and column name joined C<__>.

+

+=item C<where>

+

+Where clause. This is hash reference or L<DBIx::Custom::Where> object.

+    

+    # Hash reference

+    $dbi->select(where => {author => 'Ken', 'title' => 'Perl'}, ...);

+    

+    # Where clause

+    my $where = $dbi->where(

+        clause => ['and', '{= author}', '{like title}'],

+        param  => {author => 'Ken', title => '%Perl%'}

+    );

+    $dbi->select(where => $where, ...);

+

+=back

+

+C<filter> arguments.

 C<where> is where clause. this is normally hash reference.

 C<append> is a string added at the end of the SQL statement.

 C<filter> is filters when parameter binding is executed.

 C<query> is if you don't execute sql and get L<DBIx::Custom::Query> object as return value.

-default to 0. This is experimental.

-C<selection> is string of column name and tables. This is experimental

+default to 0. This is EXPERIMENTAL.

+C<selection> is string of column name and tables. This is EXPERIMENTAL

     selection => 'name, location.name as location_name ' .

                  'from company inner join location'

@@ -1806,9 +1888,9 @@ such as "{= title} or {like author}".

 Second element is paramters.

 C<join> is join clause after from clause.

-This is experimental.

+This is EXPERIMENTAL.

-=head3 C<(experimental) select_at()>

+=head3 C<select_at() EXPERIMENTAL>

 To select row by using primary key, use C<select_at()>.

@@ -1835,11 +1917,11 @@ C<where> is where clause. this must be hash reference.

 C<append> is a string added at the end of the SQL statement.

 C<filter> is filters when parameter binding is executed.

 C<query> is if you don't execute sql and get L<DBIx::Custom::Query> object as return value.

-default to 0. This is experimental.

+default to 0. This is EXPERIMENTAL.

 This is overwrites C<default_bind_filter>.

 Return value of C<update()> is the count of affected rows.

-=head2 C<(experimental) update_param>

+=head2 C<update_param EXPERIMENTAL>

     my $update_param = $dbi->update_param({title => 'a', age => 2});

@@ -1847,7 +1929,7 @@ Create update parameter tag.

     {title => 'a', age => 2}   ->   {update_param title age}

-=head2 C<(experimental) model>

+=head2 C<model EXPERIMENTAL>

     $dbi->model('book')->method(

         insert => sub { ... },

@@ -1858,7 +1940,7 @@ Create update parameter tag.

 Set and get a L<DBIx::Custom::Model> object,

-=head2 C<(experimental) setup_model>

+=head2 C<setup_model EXPERIMENTAL>

     $dbi->setup_model;

@@ -1877,7 +1959,7 @@ Arguments is same as C<update> method,

 except that C<update_all> don't have C<where> argument.

 Return value of C<update_all()> is the count of affected rows.

-=head3 C<(experimental) update_at()>

+=head3 C<update_at() EXPERIMENTAL>

 To update row by using primary key, use C<update_at()>

@@ -1893,7 +1975,7 @@ NOTE that you must pass array reference as C<where>.

 If C<param> contains primary key,

 the key and value is delete from C<param>.

-=head2 C<(experimental) where>

+=head2 C<where EXPERIMENTAL>

     my $where = $dbi->where(

         clause => ['and', '{= title}', '{= author}'],

@@ -1913,7 +1995,7 @@ Method to set and get caches.

 The following tags is available.

-=head2 C<(experimental) table>

+=head2 C<table EXPERIMENTAL>

 Table tag

@@ -1990,7 +2072,7 @@ Updata parameter tag.

 =head1 STABILITY

 L<DBIx::Custom> is stable. APIs keep backword compatible

-except experimental one in the feature.

+except EXPERIMENTAL one in the feature.

 =head1 BUGS

@@ -6,9 +6,9 @@ DBIx::Custom::Guide - DBIx::Custom Guide

 =head1 GUIDE

-(This module contain many experimental featrues.

- in each pod of module, experimental marked method

- is maybe changed without warnings)

+(This guide will be completed nearly future and contains EXPERIMENTAL features

+The features marked EXPERIMENTAL in POD of L<DBIx::Custom> is

+EXPERIMENTAL ones)

 L<DBIx::Custom> is the class to make easy to execute SQL.

 This is L<DBI> wrapper class like L<DBIx::Class> or L<DBIx::Simple>.

@@ -6,9 +6,9 @@ DBIx::Custom::Guide::Ja - DBIx::Customのガイドブック

 =head1 ガイド

-(このモジュールはまだ実験的な機能を多く含んでいます

-モジュールのドキュメントにexperimentalがついているものは、

-予告なしに変更されることがあります。)

+(このガイドは将来的なもので実験的な機能についても記述されています。

+L<DBIx::Custom>のPODにEXPERIMENTALとマークされている

+ものは実験的な機能です。)

 L<DBIx::Custom>はSQLの実行を簡単に行うためのクラスです。

 L<DBIx::Class>やL<DBIx::Simple>と同じように

@@ -1786,7 +1786,7 @@ $rows = $dbi->select(

 is_deeply($rows, [{table1__key1 => 1}]);

-test 'column_clause';

+test 'model join and column attribute and all_column option';

 {

     package MyDBI8;

@@ -1810,3 +1810,8 @@ $model = $dbi->model('table1');

 $result = $model->select_at(where => 1);

 is_deeply($result->fetch_hash_first,

           {key1 => 1, key2 => 2, table2__key1 => 1, table2__key3 => 3});

+$model->column(undef);

+$result = $model->select(all_column => 1);

+is_deeply($result->fetch_hash_first,

+          {key1 => 1, key2 => 2, table2__key1 => 1, table2__key3 => 3});

+