diff options
Diffstat (limited to 'lib/Graph/GEXF')
-rw-r--r-- | lib/Graph/GEXF/Role/Viz/Color.pm | 2 | ||||
-rw-r--r-- | lib/Graph/GEXF/Role/Viz/Position.pm | 1 | ||||
-rw-r--r-- | lib/Graph/GEXF/Role/Viz/Shape.pm | 1 | ||||
-rw-r--r-- | lib/Graph/GEXF/Role/Viz/Size.pm | 1 |
4 files changed, 5 insertions, 0 deletions
diff --git a/lib/Graph/GEXF/Role/Viz/Color.pm b/lib/Graph/GEXF/Role/Viz/Color.pm index e168ad1..d7c30f1 100644 --- a/lib/Graph/GEXF/Role/Viz/Color.pm +++ b/lib/Graph/GEXF/Role/Viz/Color.pm @@ -13,12 +13,14 @@ has [qw/r g b/] => ( isa => 'RGBColor', default => 0, trigger => sub {$_has_colors++}, + traits => ['Chained'], ); has a => ( is => 'rw', isa => 'Alpha', default => 1, + traits => ['Chained'], ); sub has_colors { $_has_colors } diff --git a/lib/Graph/GEXF/Role/Viz/Position.pm b/lib/Graph/GEXF/Role/Viz/Position.pm index c15fd57..c9e79c3 100644 --- a/lib/Graph/GEXF/Role/Viz/Position.pm +++ b/lib/Graph/GEXF/Role/Viz/Position.pm @@ -8,6 +8,7 @@ has [qw/x y z/] => ( is => 'rw', isa => 'Num', trigger => sub { $_has_position++ }, + traits => ['Chained'], ); sub has_position { $_has_position } diff --git a/lib/Graph/GEXF/Role/Viz/Shape.pm b/lib/Graph/GEXF/Role/Viz/Shape.pm index 1f0ba67..b092d6d 100644 --- a/lib/Graph/GEXF/Role/Viz/Shape.pm +++ b/lib/Graph/GEXF/Role/Viz/Shape.pm @@ -29,6 +29,7 @@ role { is => 'rw', isa => $type, default => $default, + traits => ['Chained'], ); }; diff --git a/lib/Graph/GEXF/Role/Viz/Size.pm b/lib/Graph/GEXF/Role/Viz/Size.pm index d192db6..aef1574 100644 --- a/lib/Graph/GEXF/Role/Viz/Size.pm +++ b/lib/Graph/GEXF/Role/Viz/Size.pm @@ -14,6 +14,7 @@ role { is => 'rw', isa => 'Num', default => '1.0', + traits => ['Chained'], ); }; |