File Coverage

blib/lib/WebService/Braintree/HTTP.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package WebService::Braintree::HTTP;
$WebService::Braintree::HTTP::VERSION = '0.92';
use HTTP::Request;
use LWP::UserAgent;
use WebService::Braintree::Xml;
use Moose;
use Carp qw(confess);
use constant CLIENT_VERSION => $WebService::Braintree::VERSION || 'development';

has 'config' => (is => 'ro', default => sub { WebService::Braintree->configuration });

sub post {
    my ($self, $path, $params) = @_;
    $self -> make_request($path, $params, 'POST');
}

sub put {
    my ($self, $path, $params) = @_;
    $self -> make_request($path, $params, 'PUT');
}

sub get {
    my ($self, $path, $params) = @_;
    $self -> make_request($path, $params, 'GET');
}

sub delete {
    my ($self, $path, $params) = @_;
    $self -> make_request($path, undef, 'DELETE');
}

sub make_request {
    my ($self, $path, $params, $verb) = @_;
    my $request = HTTP::Request->new($verb => $self->config->base_merchant_url . $path);
    $request->headers->authorization_basic($self->config->public_key, $self->config->private_key);

    if ($params) {
        $request->content(hash_to_xml($params));
        $request->content_type("text/xml; charset=utf-8");
    }

    $request->header("X-ApiVersion" => $self->config->api_version);
    $request->header("environment" => $self->config->environment);
    $request->header("User-Agent" => "Braintree Perl Module " . CLIENT_VERSION );

    my $agent = LWP::UserAgent->new;
    my $response = $agent->request($request);

    $self->check_response_code($response->code);

    if ($response->header('Content-Length') > 1) {
        return xml_to_hash($response->content);
    } else {
        return {http_status => $response->code};
    }
}

sub check_response_code {
    my ($self, $code) = @_;
    confess "NotFoundError"       if $code eq '404';
    confess "AuthenticationError" if $code eq '401';
    confess "AuthorizationError"  if $code eq '403';
    confess "ServerError"         if $code eq '500';
    confess "DownForMaintenance"  if $code eq '503';
}

__PACKAGE__->meta->make_immutable;
1;