Show
Ignore:
Timestamp:
07/25/08 16:13:14 (6 years ago)
Author:
daisuke
Message:

add coercion for Fill

Files:
1 modified

Legend:

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

    r16158 r16409  
    5151 
    5252{ 
     53    role_type 'Google::Chart::Fill'; 
     54    coerce 'Google::Chart::Fill' 
     55        => from 'Str' 
     56        => via { 
     57            my $class = sprintf( 'Google::Chart::Fill::%s', ucfirst $_ ); 
     58            Class::MOP::load_class($class); 
     59 
     60            return $class->new(); 
     61        } 
     62    ; 
     63    coerce 'Google::Chart::Fill' 
     64        => from 'HashRef' 
     65        => hash_coercion(prefix => "Google::Chart::Fill") 
     66    ; 
     67} 
     68 
     69{ 
    5370    role_type 'Google::Chart::Data'; 
    5471    coerce 'Google::Chart::Data'