@@ -1,7 +1,9 @@

 0.1648

-  add DBIx::Custom::Model columns attirbute

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

-  add models() attribute

+  add experimental each_table() method

+  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

@@ -666,6 +666,20 @@ sub include_model {

     return $self;

 }

+sub setup_model {

+    my $self = shift;

+    

+    $self->each_column(

+        sub {

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

+            

+            if (my $model = $self->models->{$table}) {

+                push @{$model->columns}, $column;

+            }

+        }

+    );

+}

+

 our %VALID_UPDATE_ARGS

   = map { $_ => 1 } qw/table param

                        where append filter allow_update_all query/;

@@ -1222,9 +1236,9 @@ Return value of C<insert()> is the count of affected rows.

     $dbi->each_column(

         sub {

-            my ($self, $table, $column, $info) = @_;

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

-            my $type = $info->{TYPE_NAME};

+            my $type = $column_info->{TYPE_NAME};

             if ($type eq 'DATE') {

                 # ...

@@ -1235,7 +1249,7 @@ Get column informations from database.

 Argument is callback.

 You can do anything in callback.

 Callback receive four arguments, dbi object, table name,

-column name and columninformation.

+column name and column information.

 =head2 C<(experimental) include_model>

@@ -1420,6 +1434,13 @@ Return value of C<update()> is the count of affected rows.

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

+=head2 C<(experimental) setup_model>

+

+    $dbi->setup_model;

+

+Setup all model objects.

+C<columns> and C<primary_key> is automatically set.

+

 =head2 C<update_all>

     $dbi->update_all(table  => $table, 

@@ -1046,6 +1046,11 @@ You can set column names

     $model->columns(['id', 'number_id']);

+Column names is automarically set by C<setup_model()>.

+This method is needed to be call after C<include_model()>.

+

+    $dbi->setup_model;

+

 =head2 Model Examples

 Model examples

@@ -1074,6 +1074,11 @@ C<select_at()>で利用されます。

     $model->columns(['id', 'number_id']);

+列名はC<setup_model()>で自動的に設定することができます。

+このメソッドはC<include_model()>の後で呼び出してください。

+

+    $dbi->setup_model;

+

 =head2 モデルのサンプル

 モデルのサンプルです。

@@ -1385,3 +1385,12 @@ $model = $dbi->model('book');

 $model->columns(['id', 'number']);

 is_deeply($model->columns, ['id', 'number']);

+test 'setup_model';

+use MyDBI1;

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

+$dbi->execute('create table book (id)');

+$dbi->execute('create table company (id, name);');

+$dbi->execute('create table test (id, name, primary key (id, name));');

+$dbi->setup_model;

+is_deeply($dbi->model('book')->columns, ['id']);

+is_deeply($dbi->model('company')->columns, ['id', 'name']);