X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FResultSourceProxy.pm;h=d1f5b80f02f6c18e31e7d65d57ed45b708a0dd96;hp=3ae7ad67a0fe48b03db59fe23705f878b37ffafb;hb=002a359a8e58e2ffdc2b571231a8a6f209056ffe;hpb=1caff56eca264363545bcffc225a01cbfd5cf503 diff --git a/lib/DBIx/Class/ResultSourceProxy.pm b/lib/DBIx/Class/ResultSourceProxy.pm index 3ae7ad6..d1f5b80 100644 --- a/lib/DBIx/Class/ResultSourceProxy.pm +++ b/lib/DBIx/Class/ResultSourceProxy.pm @@ -22,6 +22,8 @@ sub add_columns { } } +*add_column = \&add_columns; + sub has_column { my ($self, $column) = @_; return $self->result_source_instance->has_column($column); @@ -32,11 +34,17 @@ sub column_info { return $self->result_source_instance->column_info($column); } - + sub columns { return shift->result_source_instance->columns(@_); } - + +sub remove_columns { + return shift->result_source_instance->remove_columns(@_); +} + +*remove_column = \&remove_columns; + sub set_primary_key { shift->result_source_instance->set_primary_key(@_); }