1 package # hide from PAUSE
2 DBIx::Class::ResultSourceProxy;
7 use base 'DBIx::Class';
10 use Scalar::Util 'blessed';
11 use DBIx::Class::_Util 'quote_sub';
14 __PACKAGE__->mk_group_accessors('inherited_ro_instance' => 'source_name');
16 sub get_inherited_ro_instance { shift->get_inherited(@_) }
18 sub set_inherited_ro_instance {
21 $self->throw_exception ("Cannot set @{[shift]} on an instance")
24 $self->set_inherited(@_);
29 my ($class, @cols) = @_;
30 my $source = $class->result_source_instance;
31 $source->add_columns(@cols);
32 foreach my $c (grep { !ref } @cols) {
33 # If this is an augment definition get the real colname.
36 $class->register_column($c => $source->column_info($c));
40 sub add_column { shift->add_columns(@_) }
43 sub add_relationship {
44 my ($class, $rel, @rest) = @_;
45 my $source = $class->result_source_instance;
46 $source->add_relationship($rel => @rest);
47 $class->register_relationship($rel => $source->relationship_info($rel));
51 # legacy resultset_class accessor, seems to be used by cdbi only
52 sub iterator_class { shift->result_source_instance->resultset_class(@_) }
54 for my $method_to_proxy (qw/
68 column_info_from_storage
75 add_unique_constraints
78 unique_constraint_names
79 unique_constraint_columns
85 quote_sub __PACKAGE__."::$method_to_proxy", sprintf( <<'EOC', $method_to_proxy );
86 DBIx::Class::_ENV_::ASSERT_NO_INTERNAL_INDIRECT_CALLS and DBIx::Class::_Util::fail_on_internal_call;
87 shift->result_source_instance->%s (@_);