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

 0.1648

+  add DBIx::Custom::Model columns attirbute

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

   add models() attribute

 0.1647

@@ -1042,6 +1042,10 @@ You can set primary key to model.

 Primary key is used by C<update_at()>, C<delete_at()>,

 C<select_at()>.

+You can set column names

+

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

+

 =head2 Model Examples

 Model examples

@@ -1070,6 +1070,10 @@ L<DBIx::Custom>とL<DBI>のすべてのメソッドを呼び出すこともで

 ここで設定したプライマリーキーはC<update_at()>, C<delete_at()>,

 C<select_at()>で利用されます。

+モデルには列名を設定することもできます。

+

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

+

 =head2 モデルのサンプル

 モデルのサンプルです。

@@ -12,6 +12,7 @@ push @DBIx::Custom::CARP_NOT, __PACKAGE__;

 __PACKAGE__->attr(

     ['dbi', 'table'],

+    columns => sub { [] },

     primary_key => sub { [] }

 );

@@ -82,6 +83,11 @@ my $table = DBIx::Custom::Model->new(table => 'books');

 =head1 ATTRIBUTES

+=head2 C<(experimental) columns>

+

+    my $columns = $model->columns;

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

+

 =head2 C<dbi>

     my $dbi = $model->dbi;

@@ -1378,4 +1378,10 @@ $model = $dbi->model('book');

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

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

+test 'columns';

+use MyDBI1;

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

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

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

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