From 0d185fcf97338e76485f71d08fdfe0f77ec12fb7 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Fri, 3 Jun 2011 14:47:17 +0200 Subject: attributes are chained Signed-off-by: franck cuny --- lib/Graph/GEXF/Role/Viz/Color.pm | 2 ++ lib/Graph/GEXF/Role/Viz/Position.pm | 1 + lib/Graph/GEXF/Role/Viz/Shape.pm | 1 + lib/Graph/GEXF/Role/Viz/Size.pm | 1 + 4 files changed, 5 insertions(+) (limited to 'lib/Graph') 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'], ); }; -- cgit v1.2.3