File Coverage

blib/lib/WebService/Braintree/MerchantAccount.pm

Criterion	Covered	Total	%
statement	33	50	66.0
branch	0	8	0.0
condition			n/a
subroutine	11	16	68.7
pod	3	5	60.0
total	47	79	59.4

package WebService::Braintree::MerchantAccount;
$WebService::Braintree::MerchantAccount::VERSION = '0.93';
=head1 NAME

WebService::Braintree::Customer

=head1 PURPOSE

This class creates, updates, deletes, and finds merchant accounts.

=cut

use WebService::Braintree::MerchantAccount::IndividualDetails;
use WebService::Braintree::MerchantAccount::AddressDetails;
use WebService::Braintree::MerchantAccount::BusinessDetails;
use WebService::Braintree::MerchantAccount::FundingDetails;

use Moose;
extends "WebService::Braintree::ResultObject";

=head2 create()

This takes a hashref of parameters and returns the merchant account created.

=cut

sub create {
    my ($class, $params) = @_;
    $class->gateway->merchant_account->create($params);
}

=head2 find()

This takes a merchant_account_id returns the merchant account (if it exists).

=cut

sub find {
    my ($class, $merchant_account_id) = @_;
    $class->gateway->merchant_account->find($merchant_account_id);
}

=head2 update()

This takes a merchant_account_id and a hashref of parameters. It will update the
corresponding merchant account (if found) and returns the updated merchant
account.

=cut

sub update {
    my ($class, $merchant_account_id, $params) = @_;
    $class->gateway->merchant_account->update($merchant_account_id, $params);
}

sub gateway {
    return WebService::Braintree->configuration->gateway;
}

{
    package WebService::Braintree::MerchantAccount::Status;
$WebService::Braintree::MerchantAccount::Status::VERSION = '0.93';
use constant Active => "active";
    use constant Pending => "pending";
    use constant Suspended => "suspended";
}

{
    package WebService::Braintree::MerchantAccount::FundingDestination;
$WebService::Braintree::MerchantAccount::FundingDestination::VERSION = '0.93';
use constant Bank => "bank";
    use constant Email => "email";
    use constant MobilePhone => "mobile_phone";
}

=head1 OBJECT METHODS

In addition to the methods provided by the keys returned from Braintree, this
class provides the following methods:

=head2 master_merchant_account()

This returns the master merchant account (if it exists). It will be a
L<WebService::Braintree::MerchantAccount> object.

=cut

has master_merchant_account => (is => 'rw');

=head2 individual_details()

This returns the individual details of this merchant account (if they exist). It
will be a L<WebService::Braintree::MerchantAccount::IndividualDetails> object.

=cut

has individual_details => (is => 'rw');

=head2 business_details()

This returns the business details of this merchant account (if they exist). It
will be a L<WebService::Braintree::MerchantAccount::BusinessDetails> object.

=cut

has business_details => (is => 'rw');

=head2 funding_details()

This returns the funding details of this merchant account (if they exist). It
will be a L<WebService::Braintree::MerchantAccount::FundingDetails> object.

=cut

has funding_details => (is => 'rw');

sub BUILD {
    my ($self, $attributes) = @_;

    $self->master_merchant_account(WebService::Braintree::MerchantAccount->new($attributes->{master_merchant_account})) if ref($attributes->{master_merchant_account}) eq 'HASH';
    delete($attributes->{master_merchant_account});


    $self->individual_details(WebService::Braintree::MerchantAccount::IndividualDetails->new($attributes->{individual})) if ref($attributes->{individual}) eq 'HASH';
    delete($attributes->{individual});


    $self->business_details(WebService::Braintree::MerchantAccount::BusinessDetails->new($attributes->{business})) if ref($attributes->{business}) eq 'HASH';
    delete($attributes->{business});


    $self->funding_details(WebService::Braintree::MerchantAccount::FundingDetails->new($attributes->{funding})) if ref($attributes->{funding}) eq 'HASH';
    delete($attributes->{funding});

    $self->set_attributes_from_hash($self, $attributes);
}

__PACKAGE__->meta->make_immutable;

1;
__END__

=head1 TODO

=over 4

=item Need to document the keys and values that are returned

=item Need to document the required and optional input parameters

=item Need to document the possible errors/exceptions

=back

=cut