| 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. |