File Coverage

blib/lib/Net/Braintree/ResultObject.pm

Criterion	Covered	Total	%
statement	6	35	17.1
branch	0	10	0.0
condition			n/a
subroutine	2	10	20.0
pod	0	8	0.0
total	8	63	12.7

package Net::Braintree::ResultObject;
use Net::Braintree::Util qw(is_arrayref is_hashref);
use Moose;

my $meta = __PACKAGE__->meta;

sub set_attributes_from_hash {
  my ($self, $target, $attributes) = @_;
  while(my($attribute, $value) = each(%$attributes)) {
    $meta->add_attribute($attribute, is => 'rw');
    $target->$attribute($self->set_attr_value($value));
  }
}

sub set_attr_value {
  my ($self, $value) = @_;

  if(is_hashref($value)) {
    return Hash::Inflator->new($value);
  } elsif(is_arrayref($value)) {
    my $new_array = [];
    foreach(@$value) {
      push(@$new_array, $self->set_attr_value($_));
    }
    return $new_array;
  } else {
    return $value;
  }
}

sub setup_sub_objects {
  my($self, $target, $params, $sub_objects) = @_;
  while(my($attribute, $class) = each(%$sub_objects)) {
    $meta->add_attribute($attribute, is => 'rw');
    if (is_arrayref($params->{$attribute})) {
      my $new_array = [];
      foreach my $element (@{$params->{$attribute}}) {
        push(@$new_array, $class->new($element)) if is_hashref($element);
      }
      $target->$attribute($new_array);
    } else {
      push(@{$target->$attribute}, $class->new($params->{$attribute})) if is_hashref($params->{$attribute});
    }
    delete($params->{$attribute});
  }
}


sub credit_card_details { shift->credit_card; }
sub customer_details { shift->customer; }
sub billing_details { shift->billing; }
sub shipping_details { shift->shipping; }
sub subscription_details { shift->subscription; }

1;