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