Commit | Line | Data |
75d07914 |
1 | package # hide from PAUSE |
c0e7b4e5 |
2 | DBIx::Class::ResultSourceProxy; |
b98e75f6 |
3 | |
4 | use strict; |
5 | use warnings; |
6 | |
7 | use base qw/DBIx::Class/; |
93405cf0 |
8 | use Scalar::Util qw/blessed/; |
9 | use Carp::Clan qw/^DBIx::Class/; |
b98e75f6 |
10 | |
5ac6a044 |
11 | sub iterator_class { shift->result_source_instance->resultset_class(@_) } |
b98e75f6 |
12 | sub resultset_class { shift->result_source_instance->resultset_class(@_) } |
831ad24f |
13 | sub result_class { shift->result_source_instance->result_class(@_) } |
a48e92d7 |
14 | sub source_info { shift->result_source_instance->source_info(@_) } |
b98e75f6 |
15 | |
93405cf0 |
16 | sub set_inherited_ro_instance { |
17 | my $self = shift; |
18 | |
19 | croak "Cannot set @{[shift]} on an instance" if blessed $self; |
20 | |
21 | return $self->set_inherited(@_); |
22 | } |
23 | |
24 | sub get_inherited_ro_instance { |
25 | return shift->get_inherited(@_); |
26 | } |
27 | |
28 | __PACKAGE__->mk_group_accessors('inherited_ro_instance' => 'source_name'); |
29 | |
30 | |
5ac6a044 |
31 | sub resultset_attributes { |
32 | shift->result_source_instance->resultset_attributes(@_); |
33 | } |
34 | |
b98e75f6 |
35 | sub add_columns { |
36 | my ($class, @cols) = @_; |
1f23a877 |
37 | my $source = $class->result_source_instance; |
38 | $source->add_columns(@cols); |
39 | foreach my $c (grep { !ref } @cols) { |
40 | $class->register_column($c => $source->column_info($c)); |
41 | } |
b98e75f6 |
42 | } |
43 | |
002a359a |
44 | *add_column = \&add_columns; |
45 | |
75d07914 |
46 | sub has_column { |
bfeb73b2 |
47 | shift->result_source_instance->has_column(@_); |
b98e75f6 |
48 | } |
49 | |
75d07914 |
50 | sub column_info { |
bfeb73b2 |
51 | shift->result_source_instance->column_info(@_); |
b98e75f6 |
52 | } |
53 | |
d9916234 |
54 | sub column_info_from_storage { |
55 | shift->result_source_instance->column_info_from_storage(@_); |
6eda9bcf |
56 | } |
002a359a |
57 | |
75d07914 |
58 | sub columns { |
bfeb73b2 |
59 | shift->result_source_instance->columns(@_); |
75d07914 |
60 | } |
002a359a |
61 | |
62 | sub remove_columns { |
bfeb73b2 |
63 | shift->result_source_instance->remove_columns(@_); |
002a359a |
64 | } |
65 | |
66 | *remove_column = \&remove_columns; |
67 | |
bc0c9800 |
68 | sub set_primary_key { |
69 | shift->result_source_instance->set_primary_key(@_); |
70 | } |
71 | |
72 | sub primary_columns { |
73 | shift->result_source_instance->primary_columns(@_); |
74 | } |
b98e75f6 |
75 | |
bc0c9800 |
76 | sub add_unique_constraint { |
77 | shift->result_source_instance->add_unique_constraint(@_); |
78 | } |
79 | |
80 | sub unique_constraints { |
81 | shift->result_source_instance->unique_constraints(@_); |
82 | } |
87f0da6a |
83 | |
1bc0b925 |
84 | sub unique_constraint_names { |
85 | shift->result_source_instance->unique_constraint_names(@_); |
86 | } |
87 | |
88 | sub unique_constraint_columns { |
89 | shift->result_source_instance->unique_constraint_columns(@_); |
90 | } |
91 | |
8c49f629 |
92 | sub add_relationship { |
71e65b39 |
93 | my ($class, $rel, @rest) = @_; |
94 | my $source = $class->result_source_instance; |
95 | $source->add_relationship($rel => @rest); |
96 | $class->register_relationship($rel => $source->relationship_info($rel)); |
8c49f629 |
97 | } |
98 | |
99 | sub relationships { |
100 | shift->result_source_instance->relationships(@_); |
101 | } |
102 | |
103 | sub relationship_info { |
104 | shift->result_source_instance->relationship_info(@_); |
105 | } |
106 | |
b98e75f6 |
107 | 1; |