File Coverage

blib/lib/WebService/Braintree/MerchantAccount/BusinessDetails.pm
Criterion Covered Total %
statement 6 10 60.0
branch 0 2 0.0
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 16 50.0


line stmt bran cond sub pod time code
1             package WebService::Braintree::MerchantAccount::BusinessDetails;
2             $WebService::Braintree::MerchantAccount::BusinessDetails::VERSION = '0.92';
3 1     1   6 use WebService::Braintree::MerchantAccount::AddressDetails;
  1         3  
  1         25  
4              
5 1     1   4 use Moose;
  1         2  
  1         5  
6             extends "WebService::Braintree::ResultObject";
7              
8             has address_details => (is => 'rw');
9              
10             sub BUILD {
11 0     0 0   my ($self, $attributes) = @_;
12 0 0         $self->address_details(WebService::Braintree::MerchantAccount::AddressDetails->new($attributes->{address})) if ref($attributes->{address}) eq 'HASH';
13 0           delete($attributes->{address});
14              
15 0           $self->set_attributes_from_hash($self, $attributes);
16             }
17              
18              
19             __PACKAGE__->meta->make_immutable;
20             1;