Add deprecation warning to DBIx::Class::ResultSetProxy

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / ResultSetProxy.pm

diff --git a/lib/DBIx/Class/ResultSetProxy.pm b/lib/DBIx/Class/ResultSetProxy.pm
index ecbf47d..48e17c4 100644 (file)
--- a/lib/DBIx/Class/ResultSetProxy.pm
+++ b/lib/DBIx/Class/ResultSetProxy.pm
@@ -1,6 +1,13 @@
 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(@_);           }
@@ -11,6 +18,7 @@ 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;