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