1 package # hide from PAUSE
2 DBIx::Class::ResultSourceProxy;
7 use base 'DBIx::Class';
9 # needs to be loaded early to query method attributes below
10 use DBIx::Class::ResultSource;
12 use DBIx::Class::_Util qw( quote_sub fail_on_internal_call );
15 __PACKAGE__->mk_group_accessors('inherited_ro_instance' => 'source_name');
17 sub get_inherited_ro_instance { $_[0]->get_inherited($_[1]) }
19 sub set_inherited_ro_instance {
20 $_[0]->throw_exception ("Cannot set '$_[1]' on an instance")
23 $_[0]->set_inherited( $_[1], $_[2] );
28 my ($class, @cols) = @_;
29 my $source = $class->result_source;
30 $source->add_columns(@cols);
33 foreach my $c (grep { !ref } @cols) {
34 # If this is an augment definition get the real colname.
37 $class->register_column(
39 ( $colinfos ||= $source->columns_info )->{$c}
44 sub add_column :DBIC_method_is_indirect_sugar {
45 DBIx::Class::_ENV_::ASSERT_NO_INTERNAL_INDIRECT_CALLS and fail_on_internal_call;
46 shift->add_columns(@_)
50 sub add_relationship {
51 my ($class, $rel, @rest) = @_;
52 my $source = $class->result_source;
53 $source->add_relationship($rel => @rest);
54 $class->register_relationship($rel => $source->relationship_info($rel));
58 # legacy resultset_class accessor, seems to be used by cdbi only
59 sub iterator_class :DBIC_method_is_indirect_sugar {
60 DBIx::Class::_ENV_::ASSERT_NO_INTERNAL_INDIRECT_CALLS and fail_on_internal_call;
61 shift->result_source->resultset_class(@_)
64 for my $method_to_proxy (qw/
78 column_info_from_storage
85 add_unique_constraints
88 unique_constraint_names
89 unique_constraint_columns
96 my $qsub_opts = { attributes => [ do {
98 attributes::get( \&{"DBIx::Class::ResultSource::$method_to_proxy"} )
101 quote_sub __PACKAGE__."::$method_to_proxy", sprintf( <<'EOC', $method_to_proxy ), {}, $qsub_opts;
102 DBIx::Class::_ENV_::ASSERT_NO_INTERNAL_INDIRECT_CALLS and DBIx::Class::_Util::fail_on_internal_call;
104 shift->result_source->%s (@_);