diff options
author | franck cuny <franck@lumberjaph.net> | 2009-04-06 13:27:07 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2009-04-06 13:27:07 +0200 |
commit | 610ff1b6daf50470ad80e6a7c1770ef817c209c1 (patch) | |
tree | 47d5e7bd18270806c7952d678fd12886e672eb9f /gen-gdf.pl | |
parent | apply patch from julian, got a valid gdf file (diff) | |
download | cpan-graph-610ff1b6daf50470ad80e6a7c1770ef817c209c1.tar.gz |
add type and id in edge
Diffstat (limited to '')
-rwxr-xr-x | gen-gdf.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gen-gdf.pl b/gen-gdf.pl index 4ac0c65..b849637 100755 --- a/gen-gdf.pl +++ b/gen-gdf.pl @@ -57,6 +57,7 @@ while ( my $package = $packages->next ) { say "done"; print "creating edges ... "; +my $id = 0; $struct_graph->{ gexf }->{ graph }->{ edges } = {}; my $edges = $dbmap->resultset( 'edges' )->search; while ( my $edge = $edges->next ) { @@ -64,7 +65,8 @@ while ( my $edge = $edges->next ) { cardinal => 1, source => $edge->dist_from, target => $edge->dist_to, - + type => 'dir', + id => ++$id, #attvalue => [ { id => 3, value => 'prereq' } ], }; } |