From faf6949033a021bffab3c91a04665efef4378b28 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Fri, 16 Jul 2010 11:19:15 +0200 Subject: basic gexf generation --- lib/Graph/GEXF/Edge.pm | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 lib/Graph/GEXF/Edge.pm (limited to 'lib/Graph/GEXF/Edge.pm') diff --git a/lib/Graph/GEXF/Edge.pm b/lib/Graph/GEXF/Edge.pm new file mode 100644 index 0000000..26f2462 --- /dev/null +++ b/lib/Graph/GEXF/Edge.pm @@ -0,0 +1,18 @@ +package Graph::GEXF::Edge; + +use Moose; +use Data::UUID::LibUUID; + +has id => ( + is => 'ro', + isa => 'Str', + required => 1, + default => sub { new_uuid_string() } +); + +has source => (is => 'ro', isa => 'Str', required => 1); +has target => (is => 'ro', isa => 'Str', required => 1); +has label => (is => 'rw', isa => 'Str'); +has weight => (is => 'rw', isa => 'Num', lazy => 1, default => 1); + +1; -- cgit v1.2.3