File Coverage

blib/lib/Net/Braintree/MerchantAccount/BusinessDetails.pm
Criterion Covered Total %
statement 6 11 54.5
branch 0 2 0.0
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 17 47.0


line stmt bran cond sub pod time code
1             package Net::Braintree::MerchantAccount::BusinessDetails;
2 1     1   6 use Net::Braintree::MerchantAccount::AddressDetails;
  1         1  
  1         25  
3              
4 1     1   3 use Moose;
  1         1  
  1         4  
5             extends "Net::Braintree::ResultObject";
6             my $meta = __PACKAGE__->meta;
7              
8             sub BUILD {
9 0     0 0   my ($self, $attributes) = @_;
10              
11 0           $meta->add_attribute('address_details', is => 'rw');
12 0 0         $self->address_details(Net::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             1;