Changeset 19493

Timestamp:

09/18/08 16:12:36 (5 years ago)

Author:

lopnor

Message:

lang/perl/Google-Chart-DBIC: now you can specify value_column

Location:

lang/perl/Google-Chart-DBIC/trunk

Files:

• lib/Google/Chart/DBIC.pm (modified) (2 diffs)
• t/01_usage.t (modified) (2 diffs)

lang/perl/Google-Chart-DBIC/trunk/lib/Google/Chart/DBIC.pm

@@ -79 +79 @@
     isa => 'Google::Chart::DBIC::KeyColumn'
 );
+has 'value_column' => (
+    is => 'rw',
+    isa => 'Str',
+);
 
 __PACKAGE__->meta->make_immutable;
@@ -124 +128 @@
         push @$axis_x, $axis unless grep {$_ eq $axis} @$axis_x;
 
-#        if ($axis_column && scalar @primary > 1 && 
-        for my $col ($row->columns) {
+        for my $col ($row->columns, $self->value_column) {
+            next unless $col;
             next unless $row->has_column_loaded($col);
             next if $axis_column && $col eq $axis_column;
-            my $v = $row->$col;
+            my $v = $row->get_column($col);
             next unless Scalar::Util::looks_like_number $v;
             my $k = $col;

lang/perl/Google-Chart-DBIC/trunk/t/01_usage.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests => 33;
+use Test::More tests => 37;
 use FindBin;
 use lib "$FindBin::Bin/lib";
@@ -210 +210 @@
     is $h{cht}, 'bvg';
 }
+{
+    my $rs = $resultset->search({
+            place => '東京',
+        },{
+            select => ['rainfall', 'month'],
+            as => ['rain', 'axis_x'],
+        });
+    my $chart = Google::Chart::DBIC->new({
+            resultset => $rs,
+            value_column => 'rain',
+            color => ['ccccff'],
+            size => '500x300',
+            type => {
+                module => 'Bar',
+                args => {
+                    stacked => 0,
+                },
+            }
+        });
+
+    isa_ok $chart, 'Google::Chart::DBIC';
+
+    my $uri = URI->new($chart->as_uri);
+    diag $uri;
+    ok ($uri);
+    my %h = $uri->query_form;
+    is $h{chs}, '500x300';
+    is $h{cht}, 'bvg';
+}
 
 1;