Select Code to Download

#!/usr/bin/perl -w

...
use Graph::Traversal::BFS;
my $b = Graph::Traversal::BFS->new($g);
print "BFS: ", $b->bfs,"\n";

OUTPUT: Graph with 5 nodes : a-b,b-c,b-d,c-e,d-e

...
a: (a b c)=2 (a b  )=1 -         (a b d e)=3 (a b d)=2 
e: -         -         -         -         -         
d: -         -         -         (d e  )=1 -