diff options
| author | franck cuny <franck@lumberjaph.net> | 2011-05-21 15:08:39 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2011-05-21 15:08:39 +0200 |
| commit | fa23a91b53f219ceec3fd1a601b3999dc7a26870 (patch) | |
| tree | 090a420fbf583a4584f3814042cfcb2b927bb8a7 /lib/Graph/GEXF/Edge.pm | |
| parent | perltidy (diff) | |
| download | graph-gexf-fa23a91b53f219ceec3fd1a601b3999dc7a26870.tar.gz | |
add roles for viz; update to draft 1.2; perltidy
Signed-off-by: franck cuny <franck@lumberjaph.net>
Diffstat (limited to 'lib/Graph/GEXF/Edge.pm')
| -rw-r--r-- | lib/Graph/GEXF/Edge.pm | 6 |
1 files changed, 6 insertions, 0 deletions
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; |