Bug #44890 for Google-Chart: Attribute (type) is required

root@bkuxdw01 # perl -dS ./main.pl Loading DB routines from perl5db.pl version 1.3 Editor support available. Enter h or `h h' for help, or `man perldebug' for more help. main::(./main.pl:11): value_sets => [ [ map { $_ * 10 } 0..10 ] ], DB<1> n main::(./main.pl:5): my $chart = Google::Chart->new( main::(./main.pl:6): type_name => 'type_pie_3d', main::(./main.pl:7): set_size => [ 300, 100 ], main::(./main.pl:8): data_spec => { main::(./main.pl:9): encoding => 'data_simple_encoding', main::(./main.pl:10): max_value => 100, DB<1> n main::(./main.pl:5): my $chart = Google::Chart->new( main::(./main.pl:6): type_name => 'type_pie_3d', main::(./main.pl:7): set_size => [ 300, 100 ], main::(./main.pl:8): data_spec => { main::(./main.pl:9): encoding => 'data_simple_encoding', main::(./main.pl:10): max_value => 100, DB<1> n main::(./main.pl:5): my $chart = Google::Chart->new( main::(./main.pl:6): type_name => 'type_pie_3d', main::(./main.pl:7): set_size => [ 300, 100 ], main::(./main.pl:8): data_spec => { main::(./main.pl:9): encoding => 'data_simple_encoding', main::(./main.pl:10): max_value => 100, DB<1> n main::(./main.pl:5): my $chart = Google::Chart->new( main::(./main.pl:6): type_name => 'type_pie_3d', main::(./main.pl:7): set_size => [ 300, 100 ], main::(./main.pl:8): data_spec => { main::(./main.pl:9): encoding => 'data_simple_encoding', main::(./main.pl:10): max_value => 100, DB<1> n main::(./main.pl:5): my $chart = Google::Chart->new( main::(./main.pl:6): type_name => 'type_pie_3d', main::(./main.pl:7): set_size => [ 300, 100 ], main::(./main.pl:8): data_spec => { main::(./main.pl:9): encoding => 'data_simple_encoding', main::(./main.pl:10): max_value => 100, DB<1> n main::(./main.pl:5): my $chart = Google::Chart->new( main::(./main.pl:6): type_name => 'type_pie_3d', main::(./main.pl:7): set_size => [ 300, 100 ], main::(./main.pl:8): data_spec => { main::(./main.pl:9): encoding => 'data_simple_encoding', main::(./main.pl:10): max_value => 100, DB<1> n main::(./main.pl:5): my $chart = Google::Chart->new( main::(./main.pl:6): type_name => 'type_pie_3d', main::(./main.pl:7): set_size => [ 300, 100 ], main::(./main.pl:8): data_spec => { main::(./main.pl:9): encoding => 'data_simple_encoding', main::(./main.pl:10): max_value => 100, DB<1> n main::(./main.pl:5): my $chart = Google::Chart->new( main::(./main.pl:6): type_name => 'type_pie_3d', main::(./main.pl:7): set_size => [ 300, 100 ], main::(./main.pl:8): data_spec => { main::(./main.pl:9): encoding => 'data_simple_encoding', main::(./main.pl:10): max_value => 100, DB<1> n main::(./main.pl:5): my $chart = Google::Chart->new( main::(./main.pl:6): type_name => 'type_pie_3d', main::(./main.pl:7): set_size => [ 300, 100 ], main::(./main.pl:8): data_spec => { main::(./main.pl:9): encoding => 'data_simple_encoding', main::(./main.pl:10): max_value => 100, DB<1> n main::(./main.pl:5): my $chart = Google::Chart->new( main::(./main.pl:6): type_name => 'type_pie_3d', main::(./main.pl:7): set_size => [ 300, 100 ], main::(./main.pl:8): data_spec => { main::(./main.pl:9): encoding => 'data_simple_encoding', main::(./main.pl:10): max_value => 100, DB<1> n main::(./main.pl:5): my $chart = Google::Chart->new( main::(./main.pl:6): type_name => 'type_pie_3d', main::(./main.pl:7): set_size => [ 300, 100 ], main::(./main.pl:8): data_spec => { main::(./main.pl:9): encoding => 'data_simple_encoding', main::(./main.pl:10): max_value => 100, DB<1> n Attribute (type) is required at ./main.pl line 11 at /opt/ActivePerl-5.10/site/lib/Moose/Meta/Class.pm line 599 Moose::Meta::Class::raise_error('Class::MOP::Class::__ANON__::SERIAL::47 =HASH(0x1012b4768)', 'Attribute (typ e) is required at ./main.pl line 11\x{a}') called at /opt/ActivePerl-5.10/site/lib/Moose/Meta/Class.pm line 594 Moose::Meta::Class::throw_error('Class::MOP::Class::__ANON__::SERIAL::47 =HASH(0x1012b4768)', 'method', 'Moos e::Meta::Method::Constructor=HASH(0x101980858)', 'message', 'Attribute (type) is required') called at generated meth od (unknown origin) line 81 Google::Chart::new('Google::Chart', 'type_name', 'type_pie_3d', 'set_size', 'ARRAY(0x1018fa220)', 'data_spec ', 'HASH(0x101be3188)') called at ./main.pl line 11 Debugged program terminated. Use q to quit or R to restart, use o inhibit_exit to avoid stopping after program termination, Use `q' to quit or `R' to restart. `h q' for details. DB<1> q root@bkuxdw01 # root@bkuxdw01 # ./main.pl Attribute (type) is required at ./main.pl line 11 root@bkuxdw01 # cat main.pl #!/usr/bin/perl use Google::Chart; my $chart = Google::Chart->new( type_name => 'type_pie_3d', set_size => [ 300, 100 ], data_spec => { encoding => 'data_simple_encoding', max_value => 100, value_sets => [ [ map { $_ * 10 } 0..10 ] ], }, ); print $chart->get_url; $chart->render_to_file('my_chart.png'); Disclaimer: "This message may contain confidential, proprietary or legally privileged information.If you have received this message in error please delete it and notify immediately the sender. Internet communication is not known to be timely or secure. Only views and information that relate to the official business of Energy Market Company Pte. Ltd. (EMC) are to be taken to have been sent by and on behalf of EMC (registration no. 200101336E)."