X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FTree%2FAdjacencyList.pm;h=4c9a7586127f317d223005db06708e50fde0e0b2;hb=bb17efa0869c51aea205960012b06c956512a45a;hp=457602c288da550dfbe6c3b6179624a158ce6be8;hpb=4b44af230c1a43dd07aa927faf9a5a0dcd730c3a;p=dbsrgits%2FDBIx-Class-Tree.git

diff --git a/lib/DBIx/Class/Tree/AdjacencyList.pm b/lib/DBIx/Class/Tree/AdjacencyList.pm
index 457602c..4c9a758 100644
--- a/lib/DBIx/Class/Tree/AdjacencyList.pm
+++ b/lib/DBIx/Class/Tree/AdjacencyList.pm
@@ -1,7 +1,9 @@
-# vim: ts=8:sw=4:sts=4:et
 package DBIx::Class::Tree::AdjacencyList;
+# vim: ts=8:sw=4:sts=4:et
+
 use strict;
 use warnings;
+
 use base qw( DBIx::Class );
 use Carp qw( croak );
 
@@ -64,6 +66,10 @@ ID which defines the parent row.  Defaults to "parent_id".  This
 will create a has_many (children) and belongs_to (parent) 
 relationship.
 
+This method also setups an additional has_many relationship called 
+parents which is useful when you want to treat an adjacency list 
+as a DAG.
+
 =cut
 
 __PACKAGE__->mk_classdata( '_parent_column' => 'parent_id' );
@@ -75,6 +81,7 @@ sub parent_column {
         my $primary_col = ($class->primary_columns())[0];
         $class->belongs_to( '_parent' => $class => { "foreign.$primary_col" => "self.$parent_col" } );
         $class->has_many( 'children' => $class => { "foreign.$parent_col" => "self.$primary_col" } );
+        $class->has_many( 'parents' => $class => { "foreign.$primary_col" => "self.$parent_col" } );
         $class->_parent_column( $parent_col );
         return 1;
     }
@@ -113,6 +120,17 @@ sub parent {
     return $self->_parent();
 }
 
+=head2 parents
+
+  my $parents = $node->parents();
+  my @parents = $node->parents();
+
+This has_many relationship is not that useful as it will 
+never return more than one parent due to the one-to-many 
+structure of adjacency lists.  The reason this relationship 
+is defined is so that this tree type may be treated as if 
+it was a DAG.
+
 =head2 children
 
   my $children_rs = $employee->children();