From a918de5eb7145b28dbf6f94044ab0acc7bb6fb0b Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Mon, 15 Dec 2008 00:49:26 -0500
Subject: add a helper function to build up a path from a hash of predecessors

---
 lib/Graph/Implicit.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lib/Graph/Implicit.pm b/lib/Graph/Implicit.pm
index ca4f663..6fa42cb 100644
--- a/lib/Graph/Implicit.pm
+++ b/lib/Graph/Implicit.pm
@@ -171,4 +171,16 @@ sub johnson {
 sub floyd_warshall {
 }
 
+# misc utility functions
+
+sub make_path {
+    my ($pred, $end) = @_;
+    my @path;
+    while (defined $end) {
+        push @path, $end;
+        $end = $pred->{$end};
+    }
+    return reverse @path;
+}
+
 1;
-- 
cgit v1.2.3