lib/Graph/GEXF/Role/Viz/Position.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

package Graph::GEXF::Role::Viz::Position;

use Moose::Role;

my $_has_position = 0;

has [qw/x y z/] => (
    is      => 'rw',
    isa     => 'Num',
    trigger => sub { $_has_position++ },
    traits  => ['Chained'],
);

sub has_position { $_has_position }

no Moose::Role;

1;