File Coverage

blib/lib/StatusBoard/Graph/DataSeq.pm

Criterion	Covered	Total	%
statement	30	41	73.1
branch	4	12	33.3
condition			n/a
subroutine	9	12	75.0
pod	8	8	100.0
total	51	73	69.8

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

# ABSTRACT: datasequences representation for the StatusBoard::Graph


use strict;
use warnings;
use utf8;

use Carp;

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 set_title {
    my ($self, $title) = @_;

    $self->{__title} = $title;

    return $false;
}


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

    croak "No title. Stopped" if not defined $self->{__title};

    return $self->{__title};
}


sub set_color {
    my ($self, $color) = @_;

    $self->{__color} = $color;

    return $false;
}


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

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


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

    croak "No color. Stopped" if not $self->has_color();

    return $self->{__color};
}


sub set_values {
    my ($self, $values) = @_;

    if (ref $values ne 'ARRAY') {
        croak "Incorrect values. Stopped";
    }

    $self->{__values} = $values;

    return $false;
}


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

    my $v = $self->{__values};

    if (not defined $v) {
        croak "No values in StatusBoard::Graph::DataSeq. Stopped";
    }

    return $self->{__values};
}


1;

__END__