diff options
| author | franck cuny <franck@lumberjaph.net> | 2011-05-21 16:57:19 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2011-05-21 16:57:19 +0200 |
| commit | 84d125af10ee94671065a3be762fb603f587d8d5 (patch) | |
| tree | 264b96963b0ff72a32040f6ebd1286797d6138b8 | |
| parent | update tests (diff) | |
| download | graph-gexf-84d125af10ee94671065a3be762fb603f587d8d5.tar.gz | |
s/lcfirst/ucfirst/
Signed-off-by: franck cuny <franck@lumberjaph.net>
| -rw-r--r-- | lib/Graph/GEXF/Role/Viz/Shape.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/Graph/GEXF/Role/Viz/Shape.pm b/lib/Graph/GEXF/Role/Viz/Shape.pm index f8e57de..1f0ba67 100644 --- a/lib/Graph/GEXF/Role/Viz/Shape.pm +++ b/lib/Graph/GEXF/Role/Viz/Shape.pm @@ -16,7 +16,7 @@ role { my ( $type, $default ); - $type = lcfirst( $p->for ) . 'Shape'; + $type = ucfirst( $p->for ) . 'Shape'; if ( $p->for eq 'node' ) { $default = 'disc'; @@ -26,8 +26,9 @@ role { } has shape => ( - is => 'rw', - isa => $type, + is => 'rw', + isa => $type, + default => $default, ); }; |