Changeset 16164 for lang/perl/Google-Chart

Timestamp:

07/24/08 12:13:45 (5 years ago)

Author:

daisuke

Message:

Beable to specify 3d pie chart

Files:

• lang/perl/Google-Chart/branches/moose/lib/Google/Chart/Type/Pie.pm (modified) (2 diffs)

lang/perl/Google-Chart/branches/moose/lib/Google/Chart/Type/Pie.pm

@@ -3 +3 @@
 package Google::Chart::Type::Pie;
 use Moose;
-
-use constant parameter_value => 'p';
+use Moose::Util::TypeConstraints;
 
 with 'Google::Chart::Type';
+
+has 'type' => (
+    is => 'rw',
+    isa => enum([ qw(2d 3d) ]),
+    required => 1,
+    default => '2d'
+);
 
 __PACKAGE__->meta->make_immutable;
 
 no Moose;
+
+sub parameter_value {
+    my $self = shift;
+
+    return $self->type eq '3d' ? 'p3' : 'p';
+}
 
 1;
@@ -20 +32 @@
 Google::Chart::Type::Pie - Google::Chart Pie Chart Type
 
+=head1 SYNOPSIS
+
+  Google::Chart->new(
+    type => 'Pie'
+  );
+
+  Google::Chart->new(
+    type => {
+      module => 'Pie',
+      args   => {
+        type => '3d'
+      }
+    }
+  );
+
 =cut