File Coverage

blib/lib/WebService/Simple/Google/Chart.pm

Criterion	Covered	Total	%
statement	9	30	30.0
branch	0	2	0.0
condition			n/a
subroutine	3	6	50.0
pod			n/a
total	12	38	31.5

package WebService::Simple::Google::Chart;
use strict;
use warnings;

our $VERSION = '0.05';

use base qw(WebService::Simple);
__PACKAGE__->config(
    base_url      => "http://chart.apis.google.com/chart",
    request_param => {},
);

sub get_url {
    my ( $self, $param, $data ) = @_;
    $self->{request_param} = $param;
    $self->_set_data_param($data);
    return $self->request_url( ( params => $self->{request_param}, url => $self->{base_url} ) );
}

sub render_to_file {
    my ( $self, $filename, $param, $data ) = @_;
    if ($param) {
        $self->{request_param} = $param;
        $self->_set_data_param($data);
    }
    $self->SUPER::get( $self->{request_param}, ":content_file" => $filename );
}

sub _set_data_param {
    my ($self, $data) = @_;
    my ( @label, @value, $total_count );
    $total_count = 0;
    map { $total_count += $data->{$_} } keys %$data;
    foreach my $key ( keys %$data ) {
        push( @label, $key );
        my $percent = int( $data->{$key} / $total_count * 100 + 0.5 );
        push( @value, $percent );
    }
    my $data_param = {};
    $self->{request_param}->{chl} = join( "|", @label );
    $self->{request_param}->{chd} = "t:" . join( ",", @value );
}

1;

__END__