@@ -835,10 +835,12 @@ sub include_model {

     }

     else {

       $model_class = $model_name = $model_table = $model_info;

-      $model_name =~ s/::/./;

-      $model_table =~ s/::/./;

     }

-   

+

+    $model_class =~ s/\./::/g;

+    $model_name =~ s/::/./;

+    $model_table =~ s/::/./;

+

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

     croak qq{"$mclass" is invalid class name } . _subname

       if $mclass =~ /[^\w:]/;

@@ -35,6 +35,12 @@ sub hy($) {

   return $value;

 }

+sub colon2 {

+  my $value = shift;

+  $value =~ s/\./::/g;

+  return $value;

+}

+

 # Constant

 my $table1 = $dbi->table1;

 my $table2 = $dbi->table2;

@@ -194,6 +200,37 @@ require MyDBI1;

   }

   sub list { shift->select; }

+

+

+  package MyModel2::main::table1;

+

+  use strict;

+  use warnings;

+

+  use base 'MyModel2::Base1';

+

+  sub insert {

+    my ($self, $param) = @_;

+    

+    return $self->SUPER::insert($param);

+  }

+

+  sub list { shift->select; }

+

+  package MyModel2::main::table2;

+

+  use strict;

+  use warnings;

+

+  use base 'MyModel2::Base1';

+

+  sub insert {

+    my ($self, $param) = @_;

+    

+    return $self->SUPER::insert($param);

+  }

+

+  sub list { shift->select; }

 }

 {

    package MyDBI5;