From b5d4412f5761e471a192425bcc2d0612d5efcc39 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Sat, 21 May 2011 15:08:47 +0200
Subject: add roles for viz and start POD

Signed-off-by: franck cuny <franck@lumberjaph.net>
---
 lib/Graph/GEXF/Node.pm | 83 +++++++++++++++++++++++++++++++++++++++++++++-----
 1 file changed, 76 insertions(+), 7 deletions(-)

diff --git a/lib/Graph/GEXF/Node.pm b/lib/Graph/GEXF/Node.pm
index 4da3984..0d691b7 100644
--- a/lib/Graph/GEXF/Node.pm
+++ b/lib/Graph/GEXF/Node.pm
@@ -1,10 +1,13 @@
 package Graph::GEXF::Node;
 
 use Moose;
-
 use Graph::GEXF::Edge;
-with 'Graph::GEXF::Role::Position',
-  'Graph::GEXF::Role::Attributes' => { for => [qw/node/] };
+
+with
+  'Graph::GEXF::Role::Attributes' => { for => [qw/node/] },
+  'Graph::GEXF::Role::Viz::Color', 'Graph::GEXF::Role::Viz::Position',
+  'Graph::GEXF::Role::Viz::Size'  => { as  => 'size' },
+  'Graph::GEXF::Role::Viz::Shape' => { for => 'node' };
 
 has id => (is => 'ro', isa => 'Str', required => 1);
 has label => (is => 'rw', isa => 'Str');
@@ -27,10 +30,22 @@ sub link_to {
     my @nodes_id = @_;
 
     foreach my $node_id (@nodes_id) {
-        my $edge =
-          Graph::GEXF::Edge->new(source => $self->id, target => $node_id);
-
-        $self->add_edge($node_id => $edge);
+        my $edge;
+        if ( ref $node_id ) {
+            $edge = Graph::GEXF::Edge->new(
+                source => $self->id,
+                target => $node_id->{target},
+                weight => $node_id->{weight}
+            );
+            $self->add_edge( $node_id->{target} => $edge );
+        }
+        else {
+            $edge = Graph::GEXF::Edge->new(
+                source => $self->id,
+                target => $node_id,
+            );
+            $self->add_edge( $node_id => $edge );
+        }
     }
 }
 
@@ -48,4 +63,58 @@ sub attribute {
     1;
 }
 
+no Moose;
+
 1;
+
+=head1 SYNOPSIS
+
+    my $graph = Graph::GEXF->new();
+
+    my $n = $graph->add_node;
+
+=head1 DESCRIPTION
+
+=head2 ATTRIBUTES
+
+=head3 id
+
+    my $n = $graph->add_node(1);
+    $n->id; # returns 1
+
+The B<id> of a node can't be changed once the node is created.
+
+=head3 label
+
+    $n->label('franckcuny');
+    $n->label();
+
+Each node has a label. If the B<label> is not defined, the default value is the B<id>. This value can be changed at any time.
+
+=head2 METHODS
+
+=head3 link_to
+
+   my $n1 = $graph->add_node();
+   my $n2 = $graph->add_node();
+   my $n3 = $graph->add_node();
+
+   $n1->link_to($n2->id);
+   $n1->link_to($n3->id);
+
+   # or
+   $n1->link_to($n2->id, $n3->id);
+
+This method will create an edge between some nodes.
+
+=head3 attribute
+
+=head3 add_edge
+
+=head3 has_link_to
+
+=head3 all_edges
+
+=head3 get_edge
+
+=head3    
-- 
cgit v1.2.3