@@ -1,3 +1,6 @@

+0.1650

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

+    - remove name specified feature from experimantal include_model().

 0.1649

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

     - select method column option can receive string.

@@ -1,6 +1,6 @@

 package DBIx::Custom;

-our $VERSION = '0.1649';

+our $VERSION = '0.1650';

 use 5.008001;

 use strict;

@@ -741,14 +741,19 @@ sub include_model {

     foreach my $model_info (@$model_infos) {

-        # Model name and class

-        my $model_name;

+        # Model class, name, table

         my $model_class;

+        my $model_name;

+        my $model_table;

         if (ref $model_info eq 'HASH') {

-            $model_name = (keys %$model_info)[0];

-            $model_class = $model_info->{$model_name};

+            $model_class = $model_info->{class};

+            $model_name  = $model_info->{name};

+            $model_table = $model_info->{table};

+            

+            $model_name  ||= $model_class;

+            $model_table ||= $model_name;

         }

-        else { $model_name = $model_class = $model_info }

+        else { $model_class =$model_name = $model_table = $model_info }

         my $mclass = "${name_space}::$model_class";

         # Load

@@ -761,10 +766,11 @@ sub include_model {

         # Instantiate

         my $model = $mclass->new(dbi => $self);

-        $model->table($model_name) unless $model->table;

+        $model->name($model_name) unless $model->name;

+        $model->table($model_table) unless $model->table;

         # Set

-        $self->model($model_name, $model);

+        $self->model($model->name, $model);

     }

     return $self;

 }

@@ -1005,41 +1005,44 @@ L<DBIx::Custom::Where> object is embedded into SQL.

 you can define model extending L<DBIx::Custom::Model>

 to improve source code view.

-    package MyModel::book;

-    use base 'DBIx::Custom::Model';

-    

-    sub insert { ... }

-    sub list { ... }

-

-You can include and instantiate this class

+At first, you create basic model class extending <DBIx::Custom::Model>.

-    $dbi->include_model(

-        MyModel => [

-            'book',

-        ]

-    );

+    package MyModel;

+    

+    use base 'DBIx::Custom::Model';

-First argument is name space.

-Second argument is array reference of class base names.

+Next, you create each model classes.

-If you don't specify second argument, All models under name space is

-included.

+MyModel::book

-    $dbi->include_model('MyModel');

+    package MyModel::book;

+    

+    use base 'MyModel';

+    

+    sub insert { ... }

+    sub list { ... }

-Note that in this case name spece module is needed.

+MyModel::company

-    # MyModel.pm

-    package MyModel;

+    package MyModel::company;

-    use base 'DBIx::Custom::Model';

+    use base 'MyModel';

+    

+    sub insert { ... }

+    sub list { ... }

 The follwoing modules location is needed.

     MyModel.pm

     MyModel / book.pm

             / company.pm

-    

+

+You can include these models by C<include_model()>

+

+    $dbi->include_model('MyModel');

+

+First argument is name space of model.

+

 You can use model like this.

     my $result = $dbi->model('book')->list;

@@ -1096,6 +1099,40 @@ You can set C<relation>

 This relation is used by C<select()>, C<select_at()>

+=head2 Class name, Model name, Table name

+

+Class name, model name, and table name is a little different.

+Generally Class name is model name, and table name is model name.

+

+    CLASS        MODEL              TABLE

+    book         (CLASS) -> book    (MODEL) -> book

+

+You can change model name.

+

+    package MyModel::book;

+    

+    __PACAKGE__->attr(name => 'book_model');

+

+    CLASS        MODEL         TABLE

+    book         book_model    (MODEL) -> book_model

+

+Model name is the name used by L<model()> of L<DBIx::Custom>.

+

+    $dbi->model('book_model');

+

+You can change table name.

+

+    package MyModel::book;

+    

+    __PACAKGE__->attr(table => 'book_table');

+

+    CLASS        MODEL              TABLE

+    book         (CLASS) -> book    book_table

+

+Table name is the table really accessed.

+

+    $dbi->model('book')->insert(...); # access to "book_table"

+

 =head2 Create column clause automatically : column_clause()

 To create column clause automatically, use C<column_clause()>.

@@ -1032,42 +1032,45 @@ C<execute()>との連携です。SQLを作成するときに埋め込むこと

 ソースコードの見通しをよくするために、

 L<DBIx::Custom::Model>を継承してモデルを作成することができます。

-    package MyModel::book;

-    use base 'DBIx::Custom::Model';

-    

-    sub insert { ... }

-    sub list { ... }

-

-このクラスを取り込んで、インスタンス化することができます。

+まず最初にモデルの元になるクラスを<DBIx::Custom::Model>

+を継承して作成します。

-    $dbi->include_model(

-        MyModel => [

-            'book',

-        ]

-    );

+    package MyModel;

+    

+    use base 'DBIx::Custom::Model';

-最初の引数は名前空間です。第二引数は、クラスの末尾の名前を含む

-配列のリファレンスです。

+次に個々のモデルクラスを作成します。

-第二引数を指定しなかった場合は、名前空間以下にあるすべてのモデル

-が取り込まれます。

+MyModel::book

-    $dbi->include_model('MyModel');

+    package MyModel::book;

+    

+    use base 'MyModel';

+    

+    sub insert { ... }

+    sub list { ... }

-ただし、名前空間名そのものを表すモジュールが

-存在していることが必要なことに注意してください。

+MyModel::company

-    # MyModel.pm

-    package MyModel;

+    package MyModel::company;

-    use base 'DBIx::Custom::Model';

+    use base 'MyModel';

+    

+    sub insert { ... }

+    sub list { ... }

-次のようなモジュールの配置が必要です。

+このように作成したモジュールを次のように配置してください。

     MyModel.pm

     MyModel / book.pm

             / company.pm

-    

+

+このように作成したモデルはC<include_model()>で取り込むことができます。

+

+    $dbi->include_model('MyModel');

+

+第一引数は、モデルの名前空間になります。

+

 モデルは次のように利用することができます。

     my $result = $dbi->model('book')->list;

@@ -1131,6 +1134,40 @@ C<select_at()>で利用されます。

 ここで設定したリレーションはC<select()>, C<select_at()>で利用されます。

+=head2 クラス名、モデル名、テーブル名

+

+クラス名とモデル名とテーブル名の関係について書いておきます。

+通常はクラス名がモデル名に利用され、テーブル名にはモデル名が利用されます。

+

+    クラス名     モデル名              テーブル名

+    book         (クラス名) -> book    (モデル名) -> book

+

+モデル名を変更することもできます。

+

+    package MyModel::book;

+    

+    __PACAKGE__->attr(name => 'book_model');

+

+    クラス名     モデル名      テーブル名

+    book         book_model    (モデル名) -> book_model

+

+モデル名というのは、L<DBIx::Custom>のL<model()>で利用される名前です。

+

+    $dbi->model('book_model');

+

+テーブル名を変更することもできます。

+

+    package MyModel::book;

+    

+    __PACAKGE__->attr(table => 'book_table');

+

+    クラス名     モデル名              テーブル名

+    book         (クラス名) -> book    book_table

+

+テーブル名というのは、実際にアクセスされるテーブルです。

+

+    $dbi->model('book')->insert(...); # book_tableにアクセス

+

 =head2 列名の自動生成 : column_clause()

 列名の節を自動生成するにはC<column_clause()>を使用します。

@@ -11,7 +11,7 @@ use Carp 'croak';

 push @DBIx::Custom::CARP_NOT, __PACKAGE__;

 __PACKAGE__->attr(

-    ['dbi', 'table'],

+    ['dbi', 'name', 'table'],

     columns => sub { [] },

     primary_key => sub { [] },

     relation => sub { {} }

@@ -169,13 +169,21 @@ my $table = DBIx::Custom::Model->new(table => 'books');

 L<DBIx::Custom> object.

+=head2 C<name>

+

+    my $name = $model->name;

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

+

+Model name.

+

 =head2 C<table>

     my $table = $model->table;

     $model    = $model->table('book');

-Table name.

-    

+Table name. Model name and table name is different.

+Table name is real table name in database.

+

 =head2 C<primary_key>

     my $primary_key = $model->primary_key;

@@ -1304,7 +1304,7 @@ like($@, qr/locate/);

         $self->include_model(

             MyModel2 => [

                 'book',

-                {company => 'Company'}

+                {class => 'Company', name => 'company'}

             ]

         );

     }

@@ -1534,6 +1534,12 @@ $dbi->execute($CREATE_TABLE->{1});

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

 $dbi->model('table1')->delete_at(where => [1, 2]);

 is_deeply($dbi->select(table => 'table1')->fetch_hash_all, []);

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

+$dbi->model('table1_1')->delete_at(where => [1, 2]);

+is_deeply($dbi->select(table => 'table1')->fetch_hash_all, []);

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

+$dbi->model('table1_3')->delete_at(where => [1, 2]);

+is_deeply($dbi->select(table => 'table1')->fetch_hash_all, []);

 test 'update_at';

@@ -11,7 +11,7 @@ sub connect {

     $self->include_model(

         MyModel1 => [

             'book',

-            {company => 'Company'}

+            {class => 'Company', name => 'company'}

         ]

     );

 }

@@ -0,0 +1,12 @@

+package MyModel5::table1_1;

+

+use strict;

+use warnings;

+

+use base 'MyModel5';

+

+__PACKAGE__->attr(table => 'table1');

+

+__PACKAGE__->attr('primary_key' => sub { ['key1', 'key2'] });

+

+1;

@@ -0,0 +1,13 @@

+package MyModel5::table1_2;

+

+use strict;

+use warnings;

+

+use base 'MyModel5';

+

+__PACKAGE__->attr(name => 'table1_3');

+__PACKAGE__->attr(table => 'table1');

+

+__PACKAGE__->attr('primary_key' => sub { ['key1', 'key2'] });

+

+1;