diff options
| -rw-r--r-- | lib/Graph/GEXF/Role/Position.pm | 14 | ||||
| -rw-r--r-- | t/03-node.t | 9 |
2 files changed, 23 insertions, 0 deletions
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; |