File Coverage

lib/Google/Chart/Data/Simple.pm

Criterion	Covered	Total	%
statement	21	38	55.2
branch	0	6	0.0
condition	0	3	0.0
subroutine	7	9	77.7
pod	1	2	50.0
total	29	58	50.0

# $Id$

package Google::Chart::Data::Simple;
use Moose;
use Scalar::Util qw(looks_like_number);

with 'Google::Chart::Data';

__PACKAGE__->meta->make_immutable;

no Moose;

my @map = ('A'..'Z', 'a'..'z', 0..9);

sub parameter_value {
    my $self = shift;
    my $max  = $self->max_value;
    my $size = @map - 1;

    my $result = '';
    foreach my $data ($self->dataset) {
        my $v = '_';
        if (defined $data && looks_like_number($data)) {
            my $index = int($data / $max * $size);

            if ($index < 0) {
                $index = 0;
            } elsif ($index > @map) {
                $index = $size;
            }
            $v = $map[$index];
        }

        $result .= $v;
    }
    return $result;
}

package  # hide from PAUSE
    Google::Chart::Data::Simple::DataSet;
use Moose;
use Moose::Util::TypeConstraints;

subtype 'Google::Chart::Data::Simple::DataSet::Value'
    => as 'Num'
    => where {
        /^[A-Za-z0-9\-\.]{2}$/
    }
;

has 'data' => (
    is => 'rw',
    isa => 'ArrayRef[Maybe[Google::Chart::Data::Simple::DataSet::Value]]',
    required => 1,
    default => sub { +[] }
);

__PACKAGE__->meta->make_immutable;

no Moose;
no Moose::Util::TypeConstraints;

sub as_string {
    my $self = shift;
    return join(',', @{$self->data});
}

1;

__END__

=head1 NAME

Google::Chart::Data::Simple - Google::Chart Simple Data Encoding

=head1 SYNOPSIS

=head1 METHODS

=head2 parameter_value

=cut