add a helper function to build up a path from a hash of predecessors

1 files changed, 12 insertions, 0 deletions

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;