initial merge of Schwern's CDBICompat work, with many thanks

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

diff --git a/lib/DBIx/Class/DB.pm b/lib/DBIx/Class/DB.pm
index 9d80916..6297850 100644 (file)
--- a/lib/DBIx/Class/DB.pm
+++ b/lib/DBIx/Class/DB.pm
@@ -144,6 +144,12 @@ sub resultset_instance {
   $_[0]->result_source_instance->resultset
 }
 
+=head2 result_source_instance
+
+Returns an instance of the result source for this class
+
+=cut
+
 sub result_source_instance {
   my $class = shift;
   $class = ref $class || $class;
@@ -155,7 +161,7 @@ sub result_source_instance {
   return $class->_result_source_instance(@_) if @_;
 
   my $source = $class->_result_source_instance;
-  return {} unless Scalar::Util::blessed($source);
+  return unless Scalar::Util::blessed($source);
 
   if ($source->result_class ne $class) {
     # Remove old source instance so we dont get deep recursion