Once again, use result_source->resultset->find instead of ->find.

diff --git a/lib/DBIx/Class/Tree.pm b/lib/DBIx/Class/Tree.pm
index b1d9b9f..d392843 100644 (file)
--- a/lib/DBIx/Class/Tree.pm
+++ b/lib/DBIx/Class/Tree.pm
@@ -4,7 +4,7 @@ package DBIx::Class::Tree;
 use strict;
 use warnings;
 
-use vars qw($VERSION);
+use vars qw( $VERSION );
 use base qw( DBIx::Class );
 
 $VERSION = '0.01000';

diff --git a/lib/DBIx/Class/Tree/AdjacencyList.pm b/lib/DBIx/Class/Tree/AdjacencyList.pm
index d1ef803..af8c26e 100644 (file)
--- a/lib/DBIx/Class/Tree/AdjacencyList.pm
+++ b/lib/DBIx/Class/Tree/AdjacencyList.pm
@@ -91,7 +91,7 @@ sub parent {
         return 1;
     }
     else {
-        return $self->find( $self->get_column( $parent_column ) );
+        return $self->result_source->resultset->find( $self->get_column( $parent_column ) );
     }
 }
 
@@ -118,7 +118,7 @@ sub children {
 
   $parent->attach_child( $child );
 
-Sets (or moves) the child to the new parent.
+Sets the child to the new parent.
 
 =cut