@@ -1,3 +1,5 @@

+0.1648

+  add models() attribute

 0.1647

   add default_dbi_option()

 0.1646

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

 package DBIx::Custom;

-our $VERSION = '0.1647';

+our $VERSION = '0.1648';

 use 5.008001;

 use strict;

@@ -27,6 +27,7 @@ __PACKAGE__->attr(

         PrintError => 0,

         AutoCommit => 1

     }},

+    models => sub { {} },

     query_builder => sub { DBIx::Custom::QueryBuilder->new },

     result_class  => 'DBIx::Custom::Result',

     safety_column_name => sub { qr/^[\w\.]*$/ },

@@ -597,18 +598,17 @@ sub model {

     my ($self, $name, $model) = @_;

     # Set

-    $self->{model} ||= {};

     if ($model) {

-        $self->{model}{$name} = $model;

+        $self->models->{$name} = $model;

         return $self;

     }

     # Check model existance

     croak qq{Model "$name" is not included}

-      unless $self->{model}{$name};

+      unless $self->models->{$name};

     # Get

-    return $self->{model}{$name};

+    return $self->models->{$name};

 }

 sub include_model {

@@ -1054,6 +1054,15 @@ Default filter when row is fetched.

     my $filters = $dbi->filters;

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

+Filters

+

+=head2 C<(experimental) models>

+

+    my $models = $dbi->models;

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

+

+Models

+

 =head2 C<password>

     my $password = $dbi->password;

@@ -1031,6 +1031,10 @@ You can also call all methods of L<DBIx::Custom> and L<DBI>.

     $model->begin_work;

     $model->commit;

+If you want to get all models, you can get them by keys of C<models()>.

+

+    my @models = keys %{$self->models};

+

 =head2 Model Examples

 Model examples

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

     $model->begin_work;

     $model->commit;

+すべてのモデル名を取得したい場合はC<models()>のキーを取得してください。

+

+    my @models = keys %{$self->models};

+

 =head2 モデルのサンプル

 モデルのサンプルです。

@@ -1276,6 +1276,8 @@ $dbi->execute("create table company (name)");

 $model = $dbi->model('company');

 $model->insert({name => 'a'});

 is_deeply($model->list->fetch_hash_all, [{name => 'a'}], 'basic');

+is($dbi->models->{'book'}, $dbi->model('book'));

+is($dbi->models->{'company'}, $dbi->model('company'));

 $dbi->model('book');

 eval{$dbi->model('book')->no_exists};