File Coverage

blib/lib/StatusBoard/Graph.pm

Criterion	Covered	Total	%
statement	64	95	67.3
branch	8	26	30.7
condition			n/a
subroutine	16	26	61.5
pod	17	17	100.0
total	105	164	64.0

package StatusBoard::Graph;
{
  $StatusBoard::Graph::VERSION = '1.0.1';
}

# ABSTRACT: create JSON with graph data for Status Board iPad App


use strict;
use warnings;
use utf8;

use Carp;
use JSON;
use File::Slurp;
use Clone qw(clone);

my $true = 1;
my $false = '';


sub new {
    my ($class, %opts) = @_;

    croak "Constructor new() does not need any parameters." if %opts;

    my $self = {};
    bless $self, $class;

    return $self;
}


sub get_json {
    my ($self) = @_;

    my $json = to_json(
        $self->__get_data()
    );

    return $json;
}


sub get_pretty_json {
    my ($self) = @_;

    my $pretty_json = to_json(
        $self->__get_data(),
        {
            pretty => 1,
        },
    );

    return $pretty_json;
}


sub write_json {
    my ($self, $file_name) = @_;

    write_file(
        $file_name,
        {binmode => ':utf8'},
        $self->get_json(),
    );

    return $false;
}


sub set_title {
    my ($self, $title) = @_;

    $self->{__title} = $title;

    return $false;
}


sub has_title {
    my ($self) = @_;

    return defined($self->{__title}) ? $true : $false;
}


sub get_title {
    my ($self) = @_;

    croak "No title. Stopped" if not $self->has_title();

    return $self->{__title};
}


sub set_type {
    my ($self, $type) = @_;

    $self->{__type} = $type;

    return $false;
}


sub has_type {
    my ($self) = @_;

    return defined($self->{__type}) ? $true : $false;
}


sub get_type {
    my ($self) = @_;

    croak "No type. Stopped" if not $self->has_type();

    return $self->{__type};
}


sub add_data_seq {
    my ($self, $data_seq) = @_;

    push @{$self->{__data_seqs}}, $data_seq;

    return $false;
}


sub set_min_y_value {
    my ($self, $number) = @_;

    $self->{__min_y_value} = $number;

    return $false;
}


sub has_min_y_value {
    my ($self) = @_;

    return defined($self->{__min_y_value}) ? $true : $false;
}


sub get_min_y_value {
    my ($self) = @_;

    croak "No min y value. Stopped" if not $self->has_min_y_value();

    return $self->{__min_y_value};
}


sub set_max_y_value {
    my ($self, $number) = @_;

    $self->{__max_y_value} = $number;

    return $false;
}


sub has_max_y_value {
    my ($self) = @_;

    return defined($self->{__max_y_value}) ? $true : $false;
}


sub get_max_y_value {
    my ($self) = @_;

    croak "No max y value. Stopped" if not $self->has_max_y_value();

    return $self->{__max_y_value};
}

sub __get_data {
    my ($self) = @_;

    my $data = {
        graph => {
            title => $self->{__title},
            ( $self->has_type() ? ( type => $self->get_type() ) : () ),
            datasequences => $self->__get_datasequences(),
        }
    };

    if ($self->has_min_y_value()) {
        $data->{graph}->{yAxis}->{minValue} = $self->get_min_y_value() + 0;
    }

    if ($self->has_max_y_value()) {
        $data->{graph}->{yAxis}->{maxValue} = $self->get_max_y_value() + 0;
    }

    return $data;
}

sub __get_datasequences {
    my ($self) = @_;

    my $datasequences = [];

    foreach my $ds (@{$self->{__data_seqs}}) {
        my $values = clone $ds->get_values();

        my $datapoints;
        while (@{$values}) {
            my $title = shift @{$values};
            my $value = shift @{$values};
            push @{$datapoints}, {
                title => $title . "",
                value => $value,
            };
        }

        push @{$datasequences}, {
            title => $ds->{__title},
            ( $ds->has_color ? ( color => $ds->get_color() ) : ()  ),
            datapoints => $datapoints,
        };
    }

    return $datasequences;
}


1;

__END__