File Coverage

blib/lib/Net/Braintree/AddressGateway.pm

Criterion	Covered	Total	%
statement	15	31	48.3
branch	0	6	0.0
condition	0	3	0.0
subroutine	5	10	50.0
pod	0	4	0.0
total	20	54	37.0

package Net::Braintree::AddressGateway;
use Moose;
use Carp qw(confess);
use Net::Braintree::Validations qw(verify_params address_signature);
use Net::Braintree::Util qw(validate_id);
use Net::Braintree::Result;

has 'gateway' => (is => 'ro');

sub create {
  my($self, $params) = @_;
  my $customer_id = delete($params->{'customer_id'});
  confess "ArgumentError" unless verify_params($params, address_signature());
  $self->_make_request("/customers/$customer_id/addresses", "post", {address => $params});
}

sub find {
  my ($self, $customer_id, $address_id) = @_;
  confess "NotFoundError" unless (validate_id($address_id) && validate_id($customer_id));
  $self->_make_request("/customers/$customer_id/addresses/$address_id", "get")->address;
}

sub update {
  my ($self, $customer_id, $address_id, $params) = @_;
  confess "ArgumentError" unless verify_params($params, address_signature());
  $self->_make_request("/customers/$customer_id/addresses/$address_id", "put", {address => $params});
}

sub delete {
  my ($self, $customer_id, $address_id) = @_;
  $self->_make_request("/customers/$customer_id/addresses/$address_id", "delete");
}

sub _make_request {
  my($self, $path, $verb, $params) = @_;
  my $response = $self->gateway->http->$verb($path, $params);
  my $result = Net::Braintree::Result->new(response => $response);
  return $result;
}


1;