File Coverage

blib/lib/Net/Braintree/PayPalAccountGateway.pm

Criterion	Covered	Total	%
statement	6	14	42.8
branch			n/a
condition			n/a
subroutine	2	5	40.0
pod	0	2	0.0
total	8	21	38.1

package Net::Braintree::PayPalAccountGateway;
use Moose;
use Carp qw(confess);

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

sub find {
  my ($self, $token) = @_;
  $self->_make_request("/payment_methods/paypal_account/$token", "get", undef)->paypal_account;
}

sub update {
  my ($self, $token, $params) = @_;
  $self->_make_request(
    "/payment_methods/paypal_account/$token",
    "put",
    {
      paypal_account => $params
    });
}

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;