Select Code to Download

{v1 => $vertex1, v2 => $vertex2, rna => $rna, state => 1 }

...
}

# Output the edges of the graph with weights for each vertex

# traverse the graph using DFS 
my $t = Graph::Traversal::DFS->new($g);
my @v = $t->preorder;
print qq[Preorder:\n];
print qq[$_\t] foreach @v;

@v = $t->postorder;
print qq[Postorder:\n];
print qq[$_\t] foreach @v;

my @r = $t->roots;
print qq[Roots:\n];
print qq[$_\t] foreach @r;