File Coverage

blib/lib/WebService/Pixela/Graph.pm

Criterion	Covered	Total	%
statement	92	98	93.8
branch	43	56	76.7
condition	13	24	54.1
subroutine	15	16	93.7
pod	9	11	81.8
total	172	205	83.9

package WebService::Pixela::Graph;
use 5.010001;
use strict;
use warnings;
use Carp qw/croak/;

our $VERSION = "0.021";

sub new {
    my ($class,$pixela_client) = @_;
    return bless +{
        client => $pixela_client,
    }, $class;
}


sub client {
    my $self = shift;
    return $self->{client};
}

sub id {
    my $self = shift;
    if (@_){
        $self->{id} = shift;
        return $self;
    }
    return $self->{id};
}

sub create {
    my ($self,%args) = @_;
    my $params = {};

    #check id
    $params->{id} = $args{id} // $self->id();
    croak 'require id' unless $params->{id};

    #check name unit
    map { $params->{$_} = $args{$_} // croak "require $_" } (qw/name unit/);

    # check type
    croak 'require type' unless $args{type};
    map {
            if ( $args{type} =~ /^$_$/i){
                $params->{type} = lc($args{type});
            }
    } (qw/int float/);

    croak 'invalid type' unless $params->{type};

    # check color
    croak 'require color' unless $args{color};
    $params->{color} = _color_validate($args{color});
    croak 'invalid color' unless $params->{color};

    #no check timezone...
    $params->{timezone} = $args{timezone} if $args{timezone};

    my $path = 'users/'.$self->client->username.'/graphs';
    $self->id($params->{id});
    return $self->client->request_with_xuser_in_header('POST',$path,$params);
}


sub get {
    my $self = shift;
    my $res  = $self->client->request_with_xuser_in_header('GET',('users/'.$self->client->username.'/graphs'));
    return $self->client->decode() ? $res->{graphs} : $res;
}


sub get_svg {
    my ($self, %args) = @_;
    my $id = $args{id} // $self->id;
    croak 'require graph id' unless $id;

    my $query = {};
    $query->{date} = $args{date} if $args{date};
    $query->{mode} = $args{mode} if $args{mode};

    my $path = 'users/'.$self->client->username.'/graphs/'.$id;

    return $self->client->query_request('GET',$path,$query);
}

sub update {
    my ($self,%arg) = @_;
    my $client = $self->client;

    my $id = $arg{id} // $self->id;
    croak 'require graph id' unless $id;

    my $params = {};
    map { $params->{$_} = $arg{$_} if $arg{$_} } (qw/name unit timezone/);

    #color invalid -> croak
    if ($arg{color}){
        $params->{color} = _color_validate($arg{color});
        croak 'invalid color' unless $params->{color};
    }

    if ($arg{purge_cache_urls}){
        if (ref($arg{purge_cache_urls}) ne 'ARRAY'){
            croak 'invalid types for purge_cache_urls';
        }
        $params->{purgeCacheURLs} = $arg{purge_cache_urls};
    }

    $params->{selfSufficient} = $arg{self_sufficient} if defined $arg{self_sufficient};

    return $client->request_with_xuser_in_header('PUT',('users/'.$client->username.'/graphs/'.$id),$params);
}

sub delete {
    my ($self,$id) = @_;
    my $client = $self->client;

    $id //= $self->id;
    croak 'require graph id' unless $id;

    return $client->request_with_xuser_in_header('DELETE',('users/'.$client->username.'/graphs/'.$id));
}

sub html {
    my ($self,%args) = @_;

    my $client = $self->client;

    my $id = $args{id} // $self->id;
    croak 'require graph id' unless $id;

    my $path = $client->base_url . 'v1/users/'.$client->username.'/graphs/'.$id.'.html';

    if ($args{line}){
        $path .= '?mode=line';
    }

    return $path;
}

sub pixels {
    my ($self,%args) = @_;

    my $id  = $args{id} // $self->id;
    croak 'require id' unless $id;

    my $params = {};
    $params->{to}   = $args{to}   if $args{to};
    $params->{from} = $args{from} if $args{from};

    my $path = 'users/'.$self->client->username.'/graphs/'.$id.'/pixels';
    my $res  = $self->client->request_with_xuser_in_header('GET',$path,$params);

    return $self->client->decode() ? $res->{pixels} : $res;
}

sub stats {
    my ($self, $id) = @_;

    my $client = $self->client;

    $id //= $self->id;
    croak 'require graph id' unless $id;

    my $path = 'users/'.$self->client->username.'/graphs/'.$id.'/stats';
    return $self->client->request('GET',$path);
}

sub _color_validate  {
    my $check_color = shift;
    map {
        if ($check_color  =~ /^$_$/i){
            return lc($check_color);
        }
    } (qw/shibafu momiji sora ichou ajisai kuro/);
    return undef;
}

1;
__END__