File Coverage

blib/lib/GitHub/API/Base.pm

Criterion	Covered	Total	%
statement	6	27	22.2
branch	0	2	0.0
condition	0	4	0.0
subroutine	2	7	28.5
pod			n/a
total	8	40	20.0

#
# This file is part of GitHub-API
#
# This software is Copyright (c) 2013 by Chris Weyl.
#
# This is free software, licensed under:
#
#   The GNU Lesser General Public License, Version 2.1, February 1999
#
package GitHub::API::Base;
{
  $GitHub::API::Base::VERSION = '0.000000_03';
}

use common::sense;
use autobox::JSON;

# ABSTRACT: Base class for GitHub::API classes

# debugging...
#use Smart::Comments '###';

sub _get {
    my $self = shift @_;

    ### fetching: $self->{base_url} . $self->{url}
    my $items = $self
        ->{ua}
        ->get(
            $self->{base_url} . $self->{url},
            { headers => $self->{headers} },
        )
        ->{content}
        ->from_json
        ;

    return ref $items eq 'ARRAY' ? $items : [ $items ];
}

sub _post {
    my ($self, $content, $path_part) = @_;

    my $url = $self->{base_url} . $self->{url};
    $url .= $path_part // q{};

    ### POST to: $url
    #### $content
    my $resp = $self
        ->{ua}
        ->post($url, { content => $content->to_json, headers => $self->{headers} })
        ;

    return $resp->{content}->from_json;
}

sub _delete {
    my ($self, $content, $path_part) = @_;

    my $url = $self->{base_url} . $self->{url};
    $url .= $path_part // q{};

    ### DELETE to: $url
    my $resp = $self
        ->{ua}
        ->delete($url, { headers => $self->{headers} })
        ;

    return $resp;
}

sub _next_append {
    my ($self, $class, $url_append) = @_;

    my %thing = %$self;
    $thing{url} .= $url_append;

    #### %thing
    return bless \%thing, $class;
}

sub _next {
    my ($self, $class, $url) = @_;

    my %thing = %$self;
    $thing{url} = $url;

    #### %thing
    return bless \%thing, $class;
}

!!42;

__END__