Changeset 16120

Timestamp:

07/23/08 14:29:49 (5 years ago)

Author:

daisuke

Message:

QRcode support

Location:

lang/perl/Google-Chart/branches/moose

Files:

• lib/Google/Chart.pm (modified) (5 diffs)
• lib/Google/Chart/Type/QRcode.pm (added)
• t/53_qrcode.t (added)

lang/perl/Google-Chart/branches/moose/lib/Google/Chart.pm

@@ -32 +32 @@
     does     => 'Google::Chart::Data',
     coerce   => 1,
-    required => 1,
 );
 
@@ -67 +66 @@
 
 no Moose;
+
+# XXX 
+# We need a trigger function that gets called whenever a component
+# is set, so we can validate if the combination of components are
+# actually feasible.
 
 sub as_uri {
@@ -126 +130 @@
     data => [ 1, 2, 3, 4, 5 ]
   );
-  print $chart->as_uri, "\n";
-  print $chart->render_to_file( filename => 'filename.png' );
+
+  print $chart->as_uri, "\n"; # or simply print $chart, "\n"
+
+  $chart->render_to_file( filename => 'filename.png' );
 
 =head1 METHODS
@@ -170 +176 @@
   );
 
+=item marker
+
+Specifies the markers that go on line charts.
+
+=item axis
+
+Specifies the axis labels and such that go on line and bar charts
+
 =back
 
@@ -185 +199 @@
 `filename' parameter
 
+=head1 
+
+=head1 AUTHORS
+
+Daisuke Maki C<< <daisuke@endeworks.jp> >> (current maintainer)
+
+Marcel Grünauer C<< <marcel@cpan.org> >> (original author)
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+See http://www.perl.com/perl/misc/Artistic.html
 =cut