X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FResultSourceProxy.pm;h=1ae920ed2e9e1bb774ca0f0c8dad296f38249acb;hb=096f421241;hp=2743bf71d65e4fc815b2085973ff1b731281720f;hpb=bab77431c4723e1625740c08c9c53742b689cbdb;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/ResultSourceProxy.pm b/lib/DBIx/Class/ResultSourceProxy.pm index 2743bf7..1ae920e 100644 --- a/lib/DBIx/Class/ResultSourceProxy.pm +++ b/lib/DBIx/Class/ResultSourceProxy.pm @@ -8,6 +8,7 @@ use base qw/DBIx::Class/; sub iterator_class { shift->result_source_instance->resultset_class(@_) } sub resultset_class { shift->result_source_instance->resultset_class(@_) } +sub result_class { shift->result_source_instance->result_class(@_) } sub source_name { shift->result_source_instance->source_name(@_) } sub resultset_attributes { @@ -26,22 +27,23 @@ sub add_columns { *add_column = \&add_columns; sub has_column { - my ($self, $column) = @_; - return $self->result_source_instance->has_column($column); + shift->result_source_instance->has_column(@_); } sub column_info { - my ($self, $column) = @_; - return $self->result_source_instance->column_info($column); + shift->result_source_instance->column_info(@_); } +sub column_info_from_storage { + shift->result_source_instance->column_info_from_storage(@_); +} sub columns { - return shift->result_source_instance->columns(@_); + shift->result_source_instance->columns(@_); } sub remove_columns { - return shift->result_source_instance->remove_columns(@_); + shift->result_source_instance->remove_columns(@_); } *remove_column = \&remove_columns; @@ -62,6 +64,14 @@ sub unique_constraints { shift->result_source_instance->unique_constraints(@_); } +sub unique_constraint_names { + shift->result_source_instance->unique_constraint_names(@_); +} + +sub unique_constraint_columns { + shift->result_source_instance->unique_constraint_columns(@_); +} + sub add_relationship { my ($class, $rel, @rest) = @_; my $source = $class->result_source_instance;