diff options
| author | franck cuny <franck@lumberjaph.net> | 2011-05-21 16:57:31 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2011-05-21 16:57:31 +0200 |
| commit | 705e50772bbd578587c128948e1a3ba97de17a15 (patch) | |
| tree | a0896c49a7b4e1f8669e023e31d523f310c37afd /lib/Graph/GEXF/Role | |
| parent | s/lcfirst/ucfirst/ (diff) | |
| download | graph-gexf-705e50772bbd578587c128948e1a3ba97de17a15.tar.gz | |
add method to test if position has been defined
Signed-off-by: franck cuny <franck@lumberjaph.net>
Diffstat (limited to 'lib/Graph/GEXF/Role')
| -rw-r--r-- | lib/Graph/GEXF/Role/Viz/Position.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/Graph/GEXF/Role/Viz/Position.pm b/lib/Graph/GEXF/Role/Viz/Position.pm index 4871df2..c15fd57 100644 --- a/lib/Graph/GEXF/Role/Viz/Position.pm +++ b/lib/Graph/GEXF/Role/Viz/Position.pm @@ -2,11 +2,16 @@ package Graph::GEXF::Role::Viz::Position; use Moose::Role; +my $_has_position = 0; + has [qw/x y z/] => ( - is => 'rw', - isa => 'Num', + is => 'rw', + isa => 'Num', + trigger => sub { $_has_position++ }, ); +sub has_position { $_has_position } + no Moose::Role; 1; |