use SetDB::Network;
use Data::Dumper;

my $net = new SetDB::Network;

# First we add 5 nodes
$a = $net->addNode('a');
$b = $net->addNode('b');
$c = $net->addNode('c');
$d = $net->addNode('d');
$e = $net->addNode('e');

# Then we add some edges
$net->addEdge($a, $b, 'a-b');
$net->addEdge($b, $c, 'b-c');
$net->addEdge($c, $d, 'c-d');
$net->addEdge($d, $e, 'd-e');
$net->addEdge($e, $a, 'e-a');

print "Network Print: ";
print $net->printNetwork();
print "\n";

# And now we find a path from a->e
@path = @{$net->findPath($a, $d)};

while($node = shift @path) {
  $edge = shift @path;
  print "$node->{name} $edge->{label} ";
}
print "\n";