From 927c3e4cf1946b70950ea5b8186abfa19ac7b078 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Fri, 5 Nov 2010 11:12:53 +0100
Subject: add position role

---
 lib/Graph/GEXF/Role/Position.pm | 14 ++++++++++++++
 t/03-node.t                     |  9 +++++++++
 2 files changed, 23 insertions(+)
 create mode 100644 lib/Graph/GEXF/Role/Position.pm

diff --git a/lib/Graph/GEXF/Role/Position.pm b/lib/Graph/GEXF/Role/Position.pm
new file mode 100644
index 0000000..2d7bbc4
--- /dev/null
+++ b/lib/Graph/GEXF/Role/Position.pm
@@ -0,0 +1,14 @@
+package Graph::GEXF::Role::Position;
+
+use Moose::Role;
+
+for (qw/x y z/) {
+    has $_ => (
+        is      => 'rw',
+        isa     => 'Num',
+        lazy    => 1,
+        default => '0.0',
+    );
+}
+
+1;
diff --git a/t/03-node.t b/t/03-node.t
index f7db7fa..a3f10e6 100644
--- a/t/03-node.t
+++ b/t/03-node.t
@@ -16,4 +16,13 @@ ok $node->set_node_attribute(
 ok $node->attribute('url', 'http://linkfluence.net'),
   'add attribute url to node';
 
+is $node->x, '0.0';
+is $node->y, '0.0';
+
+ok $node->x(5);
+ok $node->y(12);
+
+is $node->x, 5;
+is $node->y, 12;
+
 done_testing;
-- 
cgit 1.4.1