91 |
tableToCanvas ( |
tableToCanvas ( |
92 |
'; |
'; |
93 |
print STDOUT objToJson ($table); |
print STDOUT objToJson ($table); |
94 |
print STDOUT ', document.body); |
print STDOUT ', document.body, ""); |
95 |
</script>'; |
</script>'; |
96 |
} |
} |
97 |
|
|
108 |
|
|
109 |
=head1 LICENSE |
=head1 LICENSE |
110 |
|
|
111 |
Copyright 2007 Wakaba <w@suika.fam.cx> |
Copyright 2007-2008 Wakaba <w@suika.fam.cx> |
112 |
|
|
113 |
This library is free software; you can redistribute it |
This library is free software; you can redistribute it |
114 |
and/or modify it under the same terms as Perl itself. |
and/or modify it under the same terms as Perl itself. |