Add copying columns into top object

Seems,  that it is because of DBIC::ResultSourceProxy::Table::table().

Looks like columns created,  but not copied into result class:

package D;
use base qw/ A B C /;

__PACKAGE__->table('tbl');

D will have only columns from A.

Columns from B and C will not copied into D.

.gitignore

@@ -0,0 +1,3 @@
+blib
+inc
+*.swp

lib/DB/Result/Realty/Apartment.pm

@@ -2,6 +2,8 @@ package DB::Result::Realty::Apartment;
 
 use base qw/DB::Result::Realty/;
 
+sub table { shift->next::method(@_) }
+
 __PACKAGE__->table('__virtual__');
 
 __PACKAGE__->add_columns(qw/ square rooms floor /);

lib/DB/Result/Realty/Rent.pm

@@ -2,6 +2,17 @@ package DB::Result::Realty::Rent;
 
 use base qw/DBIx::Class::Core/;
 
+sub table {
+    my $class = shift;
+
+    $class->next::method(@_);
+
+    if ( $class ne __PACKAGE__ ) {
+        my $columns = __PACKAGE__->result_source_instance->_columns || {};
+        $class->add_columns( %{$columns} );
+    }
+}
+
 __PACKAGE__->table('__virtual__');
 
 __PACKAGE__->add_columns(qw/ min_rent_period price_per_month /);

lib/DB/Result/Realty/Sell.pm

@@ -2,6 +2,17 @@ package DB::Result::Realty::Sell;
 
 use base qw/DBIx::Class::Core/;
 
+sub table {
+    my $class = shift;
+
+    $class->next::method(@_);
+
+    if ( $class ne __PACKAGE__ ) {
+        my $columns = __PACKAGE__->result_source_instance->_columns || {};
+        $class->add_columns( %{$columns} );
+    }
+}
+
 __PACKAGE__->table('__virtual__');
 
 __PACKAGE__->add_columns(qw/ price_per_meter /);