Fix $obj->search to use $obj->result_source->resultset->search.

[dbsrgits/DBIx-Class-Tree.git] / lib / DBIx / Class / Tree / AdjacencyList.pm

diff --git a/lib/DBIx/Class/Tree/AdjacencyList.pm b/lib/DBIx/Class/Tree/AdjacencyList.pm
index 4ceada2..d1ef803 100644 (file)
--- a/lib/DBIx/Class/Tree/AdjacencyList.pm
+++ b/lib/DBIx/Class/Tree/AdjacencyList.pm
@@ -107,7 +107,7 @@ the objects one level below the current one.
 
 sub children {
     my( $self ) = @_;
-    my $rs = $self->search(
+    my $rs = $self->result_source->resultset->search(
         { $self->parent_column()=>$self->id() }
     );
     return $rs->all() if (wantarray());