Changeset 16112 for lang/perl/Google-Chart

Timestamp:

07/23/08 09:48:08 (5 years ago)

Author:

daisuke

Message:

data encoding stuff

Location:

lang/perl/Google-Chart/branches/moose

Files:

• lib/Google/Chart/Data/Extended.pm (modified) (1 diff)
• lib/Google/Chart/Data/Text.pm (modified) (2 diffs)
• t/10_text.t (added)

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

@@ -41 +41 @@
     => as 'Num'
     => where {
-        ($_ >= 0 && $_ <= 100) || $_ == -1
+        /^[A-Za-z0-9\-\.]{2}$/
     }
 ;

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

@@ -18 +18 @@
 
 sub BUILDARGS {
-    my ($self, %args) = @_;
+    my $self = shift;
 
     # A dataset must be an array of arrays or array of values
     my @datasets;
-    my @dataargs = @{ delete $args{datasets} || [] };
+    my @dataargs;
+    my %args;
+
+    if (@_ == 1 && ref $_[0] eq 'ARRAY') {
+        @dataargs = @{$_[0]};
+    } else {
+        %args = @_;
+        @dataargs = @{ delete $args{datasets} || [] };
+    }
+
     if (! ref $dataargs[0] ) {
         @dataargs = ([ @dataargs]);
@@ -68 +77 @@
 sub as_string {
     my $self = shift;
-    return join(',', @{$self->data});
+    return join(',', map { sprintf('%0.1f', $_) } @{$self->data});
 }