diff options
author | franck cuny <franck@lumberjaph.net> | 2011-06-03 14:47:17 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2011-06-03 14:47:17 +0200 |
commit | 0d185fcf97338e76485f71d08fdfe0f77ec12fb7 (patch) | |
tree | f5a1923b0cf032fd61131e6bccdb6710f93bee71 | |
parent | attributes are chained (diff) | |
download | graph-gexf-0d185fcf97338e76485f71d08fdfe0f77ec12fb7.tar.gz |
attributes are chained
Signed-off-by: franck cuny <franck@lumberjaph.net>
-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'], ); }; |