File Coverage

blib/lib/Net/Braintree/Dispute.pm

Criterion	Covered	Total	%
statement	12	17	70.5
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	16	25	64.0

package Net::Braintree::Dispute;
use Net::Braintree::Dispute::TransactionDetails;
use Net::Braintree::Dispute::Status;
use Net::Braintree::Dispute::Reason;

use Moose;
extends 'Net::Braintree::ResultObject';

my $meta = __PACKAGE__->meta;

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

  $meta->add_attribute('transaction_details', is => 'rw');
  $self->transaction_details(Net::Braintree::Dispute::TransactionDetails->new($attributes->{transaction})) if ref($attributes->{transaction}) eq 'HASH';
  delete($attributes->{transaction});
  $self->set_attributes_from_hash($self, $attributes);
}

1;