1 package # hide from PAUSE
2 DBIx::Class::ResultSourceProxy;
7 use base 'DBIx::Class';
9 use DBIx::Class::_Util qw( quote_sub fail_on_internal_call );
12 __PACKAGE__->mk_group_accessors('inherited_ro_instance' => 'source_name');
14 sub get_inherited_ro_instance { $_[0]->get_inherited($_[1]) }
16 sub set_inherited_ro_instance {
17 $_[0]->throw_exception ("Cannot set '$_[1]' on an instance")
20 $_[0]->set_inherited( $_[1], $_[2] );
25 my ($class, @cols) = @_;
26 my $source = $class->result_source_instance;
27 $source->add_columns(@cols);
28 foreach my $c (grep { !ref } @cols) {
29 # If this is an augment definition get the real colname.
32 $class->register_column($c => $source->column_info($c));
37 DBIx::Class::_ENV_::ASSERT_NO_INTERNAL_INDIRECT_CALLS and fail_on_internal_call;
38 shift->add_columns(@_)
42 sub add_relationship {
43 my ($class, $rel, @rest) = @_;
44 my $source = $class->result_source_instance;
45 $source->add_relationship($rel => @rest);
46 $class->register_relationship($rel => $source->relationship_info($rel));
50 # legacy resultset_class accessor, seems to be used by cdbi only
52 DBIx::Class::_ENV_::ASSERT_NO_INTERNAL_INDIRECT_CALLS and fail_on_internal_call;
53 shift->result_source_instance->resultset_class(@_)
56 for my $method_to_proxy (qw/
70 column_info_from_storage
77 add_unique_constraints
80 unique_constraint_names
81 unique_constraint_columns
87 quote_sub __PACKAGE__."::$method_to_proxy", sprintf( <<'EOC', $method_to_proxy );
88 DBIx::Class::_ENV_::ASSERT_NO_INTERNAL_INDIRECT_CALLS and DBIx::Class::_Util::fail_on_internal_call;
89 shift->result_source_instance->%s (@_);