File Coverage

blib/lib/WebService/Pixela/Pixel.pm

Criterion	Covered	Total	%
statement	65	65	100.0
branch	12	12	100.0
condition	14	19	73.6
subroutine	14	14	100.0
pod	6	8	75.0
total	111	118	94.0

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

our $VERSION = "0.01";

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


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

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

    #check graphID
    my $id = $self->_check_id($args{id});

    #check date
    $params->{date}     = $args{date}     // croak 'require date';
    $params->{date} .= '';

    #check quantity
    $params->{quantity} = $args{quantity} // croak 'require quantity';
    $params->{quantity}.= '';

    #check optionalData
    $params->{optionalData} = $args{optional_data} if $args{optional_data};

    my $path = $self->_create_path($id);
    return $self->client->request_with_xuser_in_header('POST',$path,$params);
}

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

    my $id = $self->_check_id($args{id});

    my $date = $args{date} // croak 'require date';

    my $path = $self->_create_path($id,$date);
    return $self->client->request_with_xuser_in_header('GET',$path);
}

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

    my $id = $self->_check_id($args{id});

    #check date
    my $date = $args{date} // croak 'require date';

    my $params = {};

    #check quantity
    $params->{quantity}     = $args{quantity} . ''      if $args{quantity};

    #check optionalData
    $params->{optionalData} = $args{optional_data} if $args{optional_data};

    my $path = $self->_create_path($id,$date);
    return $self->client->request_with_xuser_in_header('PUT',$path,$params);
}

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

    my $id = $self->_check_id($args{id});

    my $path = $self->_create_path($id);
    $path = $path . '/increment';

    my $length = $args{length} // 0;

    return $client->request_with_dual_in_header('PUT',$path,$length);
}

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

    my $id = $self->_check_id($args{id});

    my $path = $self->_create_path($id);
    $path = $path . '/decrement';

    my $length = $args{length} // 0;

    return $client->request_with_dual_in_header('PUT',$path,$length);
}

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

    my $id = $self->_check_id($args{id});
    my $date = $args{date} // croak 'require date';

    my $path = $self->_create_path($id,$date);

    return $self->client->request_with_xuser_in_header('DELETE',$path);
}

sub _check_id {
    my ($self,$arg_id) = @_;

    my $id = $arg_id ? $arg_id : $self->client->graph->id();
    croak 'require graph_id' unless $id;
    return $id;
}

sub _create_path {
    my ($self,$id,$date) = @_;
    my $path = 'users/'.$self->client->username.'/graphs/'.$id;
    return defined $date ? $path . '/' . $date : $path;
}


1;
__END__