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) = @_; |
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 | |
20 | sub _select_columns { |
21 | return shift->result_source_instance->columns; |
22 | } |
23 | |
24 | sub has_column { |
25 | my ($self, $column) = @_; |
26 | return $self->result_source_instance->has_column($column); |
27 | } |
28 | |
29 | sub column_info { |
30 | my ($self, $column) = @_; |
31 | return $self->result_source_instance->column_info($column); |
32 | } |
33 | |
34 | |
35 | sub columns { |
36 | return shift->result_source_instance->columns(@_); |
37 | } |
38 | |
39 | sub set_primary_key { shift->result_source_instance->set_primary_key(@_); } |
40 | sub primary_columns { shift->result_source_instance->primary_columns(@_); } |
41 | |
8c49f629 |
42 | sub add_relationship { |
71e65b39 |
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)); |
8c49f629 |
47 | } |
48 | |
49 | sub relationships { |
50 | shift->result_source_instance->relationships(@_); |
51 | } |
52 | |
53 | sub relationship_info { |
54 | shift->result_source_instance->relationship_info(@_); |
55 | } |
56 | |
b98e75f6 |
57 | 1; |