From 927c3e4cf1946b70950ea5b8186abfa19ac7b078 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Fri, 5 Nov 2010 11:12:53 +0100 Subject: add position role --- lib/Graph/GEXF/Role/Position.pm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 lib/Graph/GEXF/Role/Position.pm (limited to 'lib/Graph/GEXF') 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; -- cgit v1.2.3