File Coverage

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

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Google::Chart::Encoding::Simple;
use Moose;
use Scalar::Util qw(looks_like_number);
use namespace::clean -except => qw(meta);

with 'Google::Chart::Encoding';

my @ENCODE_VALUES = ('A'..'Z', 'a'..'z', 0..9);
sub encode {
    my ($self, $sets) = @_;

    return 's:' . join( ',', # join data sets
        map {
            my $set = $_;
            join('', map {
                defined $_ ?
                    (looks_like_number($_) ? $ENCODE_VALUES[$_] : '_') :
                    '_'
            } @{$set->data} ) # join data values
        } @$sets
    );

}

__PACKAGE__->meta->make_immutable();

1;

__END__

=head1 NAME

Google::Chart::Encoding::Simple - Encode Values Based On "Simple Encoding"

=cut