File Coverage

blib/lib/Net/Braintree/Disbursement.pm
Criterion Covered Total %
statement 3 12 25.0
branch n/a
condition n/a
subroutine 1 4 25.0
pod 0 2 0.0
total 4 18 22.2


line stmt bran cond sub pod time code
1             package Net::Braintree::Disbursement;
2              
3 1     1   3 use Moose;
  1         1  
  1         6  
4             extends "Net::Braintree::ResultObject";
5             my $meta = __PACKAGE__->meta;
6              
7             sub BUILD {
8 0     0 0   my ($self, $attributes) = @_;
9 0           $meta->add_attribute('merchant_account', is => 'rw');
10 0           $self->merchant_account(Net::Braintree::MerchantAccount->new($attributes->{merchant_account}));
11 0           delete($attributes->{merchant_account});
12 0           $self->set_attributes_from_hash($self, $attributes);
13             }
14              
15             sub transactions {
16 0     0 0   my $self = shift;
17             Net::Braintree::Transaction->search(sub {
18 0     0     my $search = shift;
19 0           $search->ids->in($self->transaction_ids);
20 0           });
21             }
22              
23             1;