Show
Ignore:
Timestamp:
07/24/08 12:13:45 (6 years ago)
Author:
daisuke
Message:

Beable to specify 3d pie chart

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Google-Chart/branches/moose/lib/Google/Chart/Type/Pie.pm

    r16101 r16164  
    33package Google::Chart::Type::Pie; 
    44use Moose; 
    5  
    6 use constant parameter_value => 'p'; 
     5use Moose::Util::TypeConstraints; 
    76 
    87with 'Google::Chart::Type'; 
     8 
     9has 'type' => ( 
     10    is => 'rw', 
     11    isa => enum([ qw(2d 3d) ]), 
     12    required => 1, 
     13    default => '2d' 
     14); 
    915 
    1016__PACKAGE__->meta->make_immutable; 
    1117 
    1218no Moose; 
     19 
     20sub parameter_value { 
     21    my $self = shift; 
     22 
     23    return $self->type eq '3d' ? 'p3' : 'p'; 
     24} 
    1325 
    14261; 
     
    2032Google::Chart::Type::Pie - Google::Chart Pie Chart Type 
    2133 
     34=head1 SYNOPSIS 
     35 
     36  Google::Chart->new( 
     37    type => 'Pie' 
     38  ); 
     39 
     40  Google::Chart->new( 
     41    type => { 
     42      module => 'Pie', 
     43      args   => { 
     44        type => '3d' 
     45      } 
     46    } 
     47  ); 
     48 
    2249=cut