diff options
Diffstat (limited to 'lib/Graph/GEXF/Role/Viz/Shape.pm')
| -rw-r--r-- | lib/Graph/GEXF/Role/Viz/Shape.pm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lib/Graph/GEXF/Role/Viz/Shape.pm b/lib/Graph/GEXF/Role/Viz/Shape.pm index f522786..f8e57de 100644 --- a/lib/Graph/GEXF/Role/Viz/Shape.pm +++ b/lib/Graph/GEXF/Role/Viz/Shape.pm @@ -14,7 +14,16 @@ parameter for => ( role { my $p = shift; - my $type = lcfirst( $p->for ) . 'Shape'; + my ( $type, $default ); + + $type = lcfirst( $p->for ) . 'Shape'; + + if ( $p->for eq 'node' ) { + $default = 'disc'; + } + else { + $default = 'solid'; + } has shape => ( is => 'rw', |