Commit | Line | Data |
---|---|---|
75d07914 | 1 | package # hide from PAUSE |
c0e7b4e5 | 2 | DBIx::Class::ResultSourceProxy; |
b98e75f6 | 3 | |
4 | use strict; | |
5 | use warnings; | |
6 | ||
8d73fcd4 | 7 | use base 'DBIx::Class'; |
8 | ||
e5053694 | 9 | use DBIx::Class::_Util qw( quote_sub fail_on_internal_call ); |
a93c65f2 | 10 | use namespace::clean; |
b98e75f6 | 11 | |
a93c65f2 | 12 | __PACKAGE__->mk_group_accessors('inherited_ro_instance' => 'source_name'); |
13 | ||
d46eac43 | 14 | sub get_inherited_ro_instance { $_[0]->get_inherited($_[1]) } |
b98e75f6 | 15 | |
93405cf0 | 16 | sub set_inherited_ro_instance { |
d46eac43 | 17 | $_[0]->throw_exception ("Cannot set '$_[1]' on an instance") |
18 | if length ref $_[0]; | |
93405cf0 | 19 | |
d46eac43 | 20 | $_[0]->set_inherited( $_[1], $_[2] ); |
93405cf0 | 21 | } |
22 | ||
5ac6a044 | 23 | |
b98e75f6 | 24 | sub add_columns { |
25 | my ($class, @cols) = @_; | |
1f23a877 | 26 | my $source = $class->result_source_instance; |
27 | $source->add_columns(@cols); | |
28 | foreach my $c (grep { !ref } @cols) { | |
157ce0cf | 29 | # If this is an augment definition get the real colname. |
30 | $c =~ s/^\+//; | |
31 | ||
1f23a877 | 32 | $class->register_column($c => $source->column_info($c)); |
33 | } | |
b98e75f6 | 34 | } |
35 | ||
e5053694 | 36 | sub add_column { |
37 | DBIx::Class::_ENV_::ASSERT_NO_INTERNAL_INDIRECT_CALLS and fail_on_internal_call; | |
38 | shift->add_columns(@_) | |
39 | } | |
002a359a | 40 | |
002a359a | 41 | |
a93c65f2 | 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)); | |
bc0c9800 | 47 | } |
48 | ||
b98e75f6 | 49 | |
a93c65f2 | 50 | # legacy resultset_class accessor, seems to be used by cdbi only |
e5053694 | 51 | sub iterator_class { |
52 | DBIx::Class::_ENV_::ASSERT_NO_INTERNAL_INDIRECT_CALLS and fail_on_internal_call; | |
53 | shift->result_source_instance->resultset_class(@_) | |
54 | } | |
a83cdbf2 | 55 | |
a93c65f2 | 56 | for my $method_to_proxy (qw/ |
57 | source_info | |
58 | result_class | |
59 | resultset_class | |
60 | resultset_attributes | |
bc0c9800 | 61 | |
a93c65f2 | 62 | columns |
63 | has_column | |
034d0be4 | 64 | |
a93c65f2 | 65 | remove_column |
66 | remove_columns | |
87f0da6a | 67 | |
a93c65f2 | 68 | column_info |
52416317 | 69 | columns_info |
a93c65f2 | 70 | column_info_from_storage |
1bc0b925 | 71 | |
a93c65f2 | 72 | set_primary_key |
73 | primary_columns | |
89170201 | 74 | sequence |
1bc0b925 | 75 | |
a93c65f2 | 76 | add_unique_constraint |
77 | add_unique_constraints | |
8c49f629 | 78 | |
a93c65f2 | 79 | unique_constraints |
80 | unique_constraint_names | |
81 | unique_constraint_columns | |
8c49f629 | 82 | |
a93c65f2 | 83 | relationships |
84 | relationship_info | |
85 | has_relationship | |
86 | /) { | |
4006691d | 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 (@_); | |
90 | EOC | |
91 | ||
8c49f629 | 92 | } |
93 | ||
b98e75f6 | 94 | 1; |