Commit | Line | Data |
80c90f5d |
1 | package DBIx::Class::ResultSourceProxy; |
b98e75f6 |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use base qw/DBIx::Class/; |
7 | |
8 | sub iterator_class { shift->result_source_instance->resultset_class(@_) } |
9 | sub resultset_class { shift->result_source_instance->resultset_class(@_) } |
10 | |
11 | sub add_columns { |
12 | my ($class, @cols) = @_; |
1f23a877 |
13 | my $source = $class->result_source_instance; |
14 | $source->add_columns(@cols); |
15 | foreach my $c (grep { !ref } @cols) { |
16 | $class->register_column($c => $source->column_info($c)); |
17 | } |
b98e75f6 |
18 | } |
19 | |
b98e75f6 |
20 | sub has_column { |
21 | my ($self, $column) = @_; |
22 | return $self->result_source_instance->has_column($column); |
23 | } |
24 | |
25 | sub column_info { |
26 | my ($self, $column) = @_; |
27 | return $self->result_source_instance->column_info($column); |
28 | } |
29 | |
30 | |
31 | sub columns { |
32 | return shift->result_source_instance->columns(@_); |
33 | } |
34 | |
35 | sub set_primary_key { shift->result_source_instance->set_primary_key(@_); } |
36 | sub primary_columns { shift->result_source_instance->primary_columns(@_); } |
37 | |
87f0da6a |
38 | sub add_unique_constraint { shift->result_source_instance->add_unique_constraint(@_); } |
39 | sub unique_constraints { shift->result_source_instance->unique_constraints(@_); } |
40 | |
8c49f629 |
41 | sub add_relationship { |
71e65b39 |
42 | my ($class, $rel, @rest) = @_; |
43 | my $source = $class->result_source_instance; |
44 | $source->add_relationship($rel => @rest); |
45 | $class->register_relationship($rel => $source->relationship_info($rel)); |
8c49f629 |
46 | } |
47 | |
48 | sub relationships { |
49 | shift->result_source_instance->relationships(@_); |
50 | } |
51 | |
52 | sub relationship_info { |
53 | shift->result_source_instance->relationship_info(@_); |
54 | } |
55 | |
b98e75f6 |
56 | 1; |