File Coverage

blib/lib/WebService/Pixela.pm

Criterion	Covered	Total	%
statement	75	83	90.3
branch	7	10	70.0
condition	10	20	50.0
subroutine	19	21	90.4
pod	2	7	28.5
total	113	141	80.1

package WebService::Pixela;
use 5.010001;
use strict;
use warnings;
use HTTP::Tiny;
use Carp;
use WebService::Pixela::User;
use WebService::Pixela::Graph;
use WebService::Pixela::Pixel;
use WebService::Pixela::Webhook;
use URI;
use JSON;
use Class::Accessor::Lite(
    new => 0,
    ro  => [qw/
        user
        graph
        pixel
        webhook
        _agent
    /],
    rw  => [qw/
        username
        token
        base_url
    /],
);

our $VERSION = "0.021";

sub new {
    my ($class,%args) = @_;
    my $self = bless +{}, $class;

    # initalize
    $self->{username} = $args{username} // croak 'require username';
    $self->{token}    = $args{token}    // (carp('not input token'), undef);
    $self->{base_url} = $args{base_url} // "https://pixe.la/";
    $self->{decode}   = $args{decode}   // 1;
    $self->{_agent}   = HTTP::Tiny->new();

    #WebService::Pixela instances
    $self->{user}    = WebService::Pixela::User->new($self);
    $self->{graph}   = WebService::Pixela::Graph->new($self);
    $self->{pixel}   = WebService::Pixela::Pixel->new($self);
    $self->{webhook} = WebService::Pixela::Webhook->new($self);

    return $self;
}

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

sub _decode_or_simple_return_from_json {
    my ($self,$rev_json) = @_;

    unless ($self->decode){
        return $rev_json;
    }

    return decode_json($rev_json);
}

sub _request {
    my ($self,$method,$path,$params) = @_;

    my $uri = URI->new('v1/'.$path)->abs($self->base_url);

    my $receive_json = $self->_agent->request($method, $uri->as_string, $params)->{"content"};

    return $self->_decode_or_simple_return_from_json($receive_json);
}

sub query_request {
    my ($self,$method,$path,$query) = @_;

    my $uri = URI->new('v1/'.$path)->abs($self->base_url);

    if ($query){
        $uri->query_form($query);
    }

    return $self->_agent->request($method, $uri->as_string)->{"content"};
}


sub request {
    my ($self,$method,$path,$content) = @_;

    my $params = {};
    if (defined $content && %$content){
        $params->{content} = encode_json($content);
    }

    return $self->_request($method,$path,$params);
}

sub request_with_xuser_in_header {
    my ($self,$method,$path,$content) = @_;

    my $params = {
        headers => { 'X-USER-TOKEN' => $self->token },
    };

    if (defined $content && %$content){
        $params->{content} = encode_json($content);
    }

    return $self->_request($method,$path,$params);
}

sub request_with_content_length_in_header {
    my ($self,$method,$path,$length) = @_;

    $length //= 0;

    my $params = {
        headers => { 'Content-Length' => $length },
    };

    return $self->_request($method,$path);
}

sub request_with_dual_in_header {
    my ($self,$method,$path,$length) = @_;

    $length //= 0;

    my $params = {
        headers => {
            'X-USER-TOKEN'   => $self->token,
            'Content-Length' => $length,
        },
    };

    return $self->_request($method,$path,$params);
}


1;
__END__