use warnings;
use base qw/DBIx::Class::ResultSourceProxy/;
-__PACKAGE__->load_components(qw/AccessorGroup/);
-__PACKAGE__->mk_group_accessors('component_class' => 'table_class');
-__PACKAGE__->table_class('DBIx::Class::ResultSource::Table');
+use DBIx::Class::ResultSource::Table;
+
+__PACKAGE__->mk_classdata(table_class => 'DBIx::Class::ResultSource::Table');
__PACKAGE__->mk_classdata('table_alias'); # FIXME: Doesn't actually do
- # anything yet!
+ # anything yet!
-=head1 NAME
+=head1 NAME
DBIx::Class::ResultSourceProxy::Table - provides a classdata table
object and method proxies
unless (ref $table) {
$table = $class->table_class->new({
$class->can('result_source_instance') ?
- %{$class->result_source_instance} : (),
+ %{$class->result_source_instance} : (),
name => $table,
result_class => $class,
+ source_name => undef,
});
}
- $class->mk_classdata('result_source_instance' => $table);
+
+ $class->mk_classdata('result_source_instance')
+ unless $class->can('result_source_instance');
+
+ $class->result_source_instance($table);
+
if ($class->can('schema_instance')) {
$class =~ m/([^:]+)$/;
$class->schema_instance->register_class($class, $class);
}
+ return $class->result_source_instance->name;
}
=head2 has_column
Returns the column metadata hashref for a column. For a description of
the various types of column data in this hashref, see
-L<DBIx::Class::ResultSource/add_column>
+L<DBIx::Class::ResultSource/add_column>
=cut