Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

JKUTEJ / Chart-OFC2-0.03 / lib / Chart / OFC2 / Labels.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
79
80
—
81
82
83
84
85
86

              
package Chart::OFC2::Labels;
=head1 NAME
Chart::OFC2::Labels - OFC2 labels object
=head1 SYNOPSIS
    use Chart::OFC2::Labels;
     
    'x_axis' => Chart::OFC2::XAxis->new(
        'labels' => [ 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun' ],
    ),
    'x_axis' => Chart::OFC2::XAxis->new(
        'labels' => Chart::OFC2::Labels->new(
            'labels' => [ 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun' ],
            'colour' => '#555555'
        ),
    ),
=head1 DESCRIPTION
=cut
use Moose;
use Moose::Util::TypeConstraints;
use MooseX::StrictConstructor;
our $VERSION = '0.01';
subtype 'Chart.OFC2.Labels'
    => as 'Object'
    => where { $_[0]->isa('Chart::OFC2::Labels') };
coerce 'Chart.OFC2.Labels'
    => from 'ArrayRef'
    => via { Chart::OFC2::Labels->new('labels' => $_) };
=head1 PROPERTIES
    has 'labels' => ( is => 'rw', isa => 'ArrayRef', );
    has 'colour' => ( is => 'rw', isa => 'Str',  );
=cut
has 'labels' => ( is => 'rw', isa => 'ArrayRef', );
has 'colour' => ( is => 'rw', isa => 'Str',  );
=head1 METHODS
=head2 new()
Object constructor.
=head2 TO_JSON()
Returns HashRef that is possible to give to C<encode_json()> function.
=cut
sub TO_JSON {
    my ($self) = @_;
     
    if (defined $self->colour) {
        return {
            map  { my $v = $self->$_; (defined $v ? ($_ => $v) : ()) }
            map  { $_->name } $self->meta->compute_all_applicable_attributes
        };
    }
    else {
        return [ @{$self->labels} ];
    }
}
1;
__END__
=head1 AUTHOR
Jozef Kutej
=cut