add new roles to handle all the viz elements

Signed-off-by: franck cuny <franck@lumberjaph.net>

1 files changed, 20 insertions, 0 deletions

diff --git a/lib/Graph/GEXF/Role/Viz/Size.pm b/lib/Graph/GEXF/Role/Viz/Size.pm
new file mode 100644
index 0000000..d192db6
--- /dev/null
+++ b/lib/Graph/GEXF/Role/Viz/Size.pm
@@ -0,0 +1,20 @@
+package Graph::GEXF::Role::Viz::Size;
+
+use MooseX::Role::Parameterized;
+
+parameter as => (
+    is       => 'ro',
+    required => 1,
+);
+
+role {
+    my $p = shift;
+
+    has $p->as => (
+        is      => 'rw',
+        isa     => 'Num',
+        default => '1.0',
+    );
+};
+
+1;