diff options
Diffstat (limited to 'lib/Graph/GEXF')
-rw-r--r-- | lib/Graph/GEXF/Node.pm | 83 |
1 files 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 |