From fa23a91b53f219ceec3fd1a601b3999dc7a26870 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Sat, 21 May 2011 15:08:39 +0200 Subject: add roles for viz; update to draft 1.2; perltidy Signed-off-by: franck cuny --- lib/Graph/GEXF/Edge.pm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'lib/Graph/GEXF/Edge.pm') diff --git a/lib/Graph/GEXF/Edge.pm b/lib/Graph/GEXF/Edge.pm index 26f2462..a116a01 100644 --- a/lib/Graph/GEXF/Edge.pm +++ b/lib/Graph/GEXF/Edge.pm @@ -3,6 +3,10 @@ package Graph::GEXF::Edge; use Moose; use Data::UUID::LibUUID; +with + 'Graph::GEXF::Role::Viz::Size' => { as => 'thickness' }, + 'Graph::GEXF::Role::Viz::Shape' => { for => 'edge' }; + has id => ( is => 'ro', isa => 'Str', @@ -15,4 +19,6 @@ has target => (is => 'ro', isa => 'Str', required => 1); has label => (is => 'rw', isa => 'Str'); has weight => (is => 'rw', isa => 'Num', lazy => 1, default => 1); +no Moose; + 1; -- cgit v1.2.3