add roles for viz; update to draft 1.2; perltidy

Signed-off-by: franck cuny <franck@lumberjaph.net>

1 files changed, 7 insertions, 4 deletions

diff --git a/lib/Graph/GEXF/Role/XML.pm b/lib/Graph/GEXF/Role/XML.pm
index b434746..47b0f52 100644
--- a/lib/Graph/GEXF/Role/XML.pm
+++ b/lib/Graph/GEXF/Role/XML.pm
@@ -7,7 +7,7 @@ use XML::Simple;
 has gexf_ns => (
     is      => 'ro',
     isa     => 'Str',
-    default => 'http://www.gexf.net/1.1draft'
+    default => 'http://www.gexf.net/1.2draft'
 );
 
 has gexf_version => (
@@ -49,13 +49,14 @@ sub to_xml {
         }
 
         push @{$graph->{gexf}->{graph}->{nodes}->{node}}, $node_desc;
-
+        
         foreach my $edge_id ($node->all_edges) {
             my $edge = $node->get_edge($edge_id);
             push @{$graph->{gexf}->{graph}->{edges}->{edge}},
-              { id     => $edges_id,
+              { id     => $edge->id,
                 source => $edge->source,
-                target => $edge->target
+                target => $edge->target,
+                weight => $edge->weight,
               };
         }
     }
@@ -86,4 +87,6 @@ sub add_attributes {
     push @{$graph->{gexf}->{graph}->{attributes}}, $attributes;
 }
 
+no Moose::Role;
+
 1;