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/; |
8 | |
5ac6a044 |
9 | sub iterator_class { shift->result_source_instance->resultset_class(@_) } |
b98e75f6 |
10 | sub resultset_class { shift->result_source_instance->resultset_class(@_) } |
831ad24f |
11 | sub result_class { shift->result_source_instance->result_class(@_) } |
bab77431 |
12 | sub source_name { shift->result_source_instance->source_name(@_) } |
b98e75f6 |
13 | |
5ac6a044 |
14 | sub resultset_attributes { |
15 | shift->result_source_instance->resultset_attributes(@_); |
16 | } |
17 | |
b98e75f6 |
18 | sub add_columns { |
19 | my ($class, @cols) = @_; |
1f23a877 |
20 | my $source = $class->result_source_instance; |
21 | $source->add_columns(@cols); |
22 | foreach my $c (grep { !ref } @cols) { |
23 | $class->register_column($c => $source->column_info($c)); |
24 | } |
b98e75f6 |
25 | } |
26 | |
002a359a |
27 | *add_column = \&add_columns; |
28 | |
75d07914 |
29 | sub has_column { |
30 | my ($self, $column) = @_; |
31 | return $self->result_source_instance->has_column($column); |
b98e75f6 |
32 | } |
33 | |
75d07914 |
34 | sub column_info { |
35 | my ($self, $column) = @_; |
36 | return $self->result_source_instance->column_info($column); |
b98e75f6 |
37 | } |
38 | |
002a359a |
39 | |
75d07914 |
40 | sub columns { |
41 | return shift->result_source_instance->columns(@_); |
42 | } |
002a359a |
43 | |
44 | sub remove_columns { |
45 | return shift->result_source_instance->remove_columns(@_); |
46 | } |
47 | |
48 | *remove_column = \&remove_columns; |
49 | |
bc0c9800 |
50 | sub set_primary_key { |
51 | shift->result_source_instance->set_primary_key(@_); |
52 | } |
53 | |
54 | sub primary_columns { |
55 | shift->result_source_instance->primary_columns(@_); |
56 | } |
b98e75f6 |
57 | |
bc0c9800 |
58 | sub add_unique_constraint { |
59 | shift->result_source_instance->add_unique_constraint(@_); |
60 | } |
61 | |
62 | sub unique_constraints { |
63 | shift->result_source_instance->unique_constraints(@_); |
64 | } |
87f0da6a |
65 | |
1bc0b925 |
66 | sub unique_constraint_names { |
67 | shift->result_source_instance->unique_constraint_names(@_); |
68 | } |
69 | |
70 | sub unique_constraint_columns { |
71 | shift->result_source_instance->unique_constraint_columns(@_); |
72 | } |
73 | |
8c49f629 |
74 | sub add_relationship { |
71e65b39 |
75 | my ($class, $rel, @rest) = @_; |
76 | my $source = $class->result_source_instance; |
77 | $source->add_relationship($rel => @rest); |
78 | $class->register_relationship($rel => $source->relationship_info($rel)); |
8c49f629 |
79 | } |
80 | |
81 | sub relationships { |
82 | shift->result_source_instance->relationships(@_); |
83 | } |
84 | |
85 | sub relationship_info { |
86 | shift->result_source_instance->relationship_info(@_); |
87 | } |
88 | |
b98e75f6 |
89 | 1; |