Commit | Line | Data |
b98e75f6 |
1 | package DBIx::Class::ResultSourceInstance; |
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) = @_; |
13 | $class->result_source_instance->add_columns(@cols); |
14 | $class->_mk_column_accessors(@cols); |
15 | } |
16 | |
17 | sub _select_columns { |
18 | return shift->result_source_instance->columns; |
19 | } |
20 | |
21 | sub has_column { |
22 | my ($self, $column) = @_; |
23 | return $self->result_source_instance->has_column($column); |
24 | } |
25 | |
26 | sub column_info { |
27 | my ($self, $column) = @_; |
28 | return $self->result_source_instance->column_info($column); |
29 | } |
30 | |
31 | |
32 | sub columns { |
33 | return shift->result_source_instance->columns(@_); |
34 | } |
35 | |
36 | sub set_primary_key { shift->result_source_instance->set_primary_key(@_); } |
37 | sub primary_columns { shift->result_source_instance->primary_columns(@_); } |
38 | |
8c49f629 |
39 | sub add_relationship { |
40 | shift->result_source_instance->add_relationship(@_); |
41 | } |
42 | |
43 | sub relationships { |
44 | shift->result_source_instance->relationships(@_); |
45 | } |
46 | |
47 | sub relationship_info { |
48 | shift->result_source_instance->relationship_info(@_); |
49 | } |
50 | |
b98e75f6 |
51 | 1; |