From fa7ff8c5e7e9ea86a7e44353a1519616afeb3ef8 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 21 Jun 2009 17:04:19 -0500
Subject: make the dfs/bfs callback optional

---
 lib/Graph/Implicit.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Graph/Implicit.pm b/lib/Graph/Implicit.pm
index 7310cd5..bab96f3 100644
--- a/lib/Graph/Implicit.pm
+++ b/lib/Graph/Implicit.pm
@@ -107,7 +107,7 @@ sub _traversal {
     while ($notempty->($bag)) {
         my ($pred, $vertex) = @{ $remove->($bag) };
         if (not exists $marked{$vertex}) {
-            $code->($pred, $vertex);
+            $code->($pred, $vertex) if $code;
             $pred{$vertex} = $pred if defined wantarray;
             $marked{$vertex} = 1;
             $insert->($bag, [$vertex, $$_[0]], $$_[1]) for $self->($vertex);
-- 
cgit v1.2.3-54-g00ecf