File Coverage

lib/WebService/Braintree/SettlementBatchSummaryGateway.pm

Criterion	Covered	Total	%
statement	11	15	73.3
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	15	23	65.2

package WebService::Braintree::SettlementBatchSummaryGateway;
$WebService::Braintree::SettlementBatchSummaryGateway::VERSION = '0.94';
use 5.010_001;
use strictures 1;

use Moose;
with 'WebService::Braintree::Role::MakeRequest';
use Carp qw(confess);

has 'gateway' => (is => 'ro');

sub generate {
    my ($self, $settlement_date, $group_by_custom_field) = @_;
    my $params = {
        settlement_date => $settlement_date
    };
    $params->{group_by_custom_field} = $group_by_custom_field if $group_by_custom_field;

    $self->_make_request("/settlement_batch_summary/", "post", {settlement_batch_summary => $params});
}

__PACKAGE__->meta->make_immutable;

1;
__END__