Initial Commit

database/perl/vendor/lib/DBIx/Class/ResultSetProxy.pm

@@ -0,0 +1,24 @@
+package # hide from PAUSE
+    DBIx::Class::ResultSetProxy;
+
+unless ($INC{"DBIx/Class/DB.pm"}) {
+  warn "IMPORTANT: DBIx::Class::ResultSetProxy is DEPRECATED AND *WILL* BE REMOVED. DO NOT USE.\n";
+}
+
+use strict;
+use warnings;
+
+use base qw/DBIx::Class/;
+
+sub search           { shift->resultset_instance->search(@_);           }
+sub search_literal   { shift->resultset_instance->search_literal(@_);   }
+sub search_like      { shift->resultset_instance->search_like(@_);      }
+sub count            { shift->resultset_instance->count(@_);            }
+sub count_literal    { shift->resultset_instance->count_literal(@_);    }
+sub find             { shift->resultset_instance->find(@_);             }
+sub create           { shift->resultset_instance->create(@_);           }
+sub find_or_create   { shift->resultset_instance->find_or_create(@_);   }
+sub find_or_new      { shift->resultset_instance->find_or_new(@_);      }
+sub update_or_create { shift->resultset_instance->update_or_create(@_); }
+
+1;