From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

DMAKI / Google-Chart-0.05007 / lib / Google / Chart / Data / Simple.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
—
67
68
69
70
71
72
73
74
75
76
77
78

              
# $Id: /mirror/coderepos/lang/perl/Google-Chart/trunk/lib/Google/Chart/Data/Simple.pm 72336 2008-09-06T14:09:33.087086Z daisuke  $
package Google::Chart::Data::Simple;
use Moose;
use Scalar::Util qw(looks_like_number);
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