File Coverage

blib/lib/WebService/Braintree/ClientTokenGateway.pm

Criterion	Covered	Total	%
statement	15	25	60.0
branch	0	6	0.0
condition			n/a
subroutine	5	7	71.4
pod	0	1	0.0
total	20	39	51.2

package WebService::Braintree::ClientTokenGateway;
$WebService::Braintree::ClientTokenGateway::VERSION = '0.92';
use Moose;
with 'WebService::Braintree::Role::MakeRequest';

use Carp qw(confess);
use WebService::Braintree::Validations qw(verify_params client_token_signature_with_customer_id client_token_signature_without_customer_id);
use WebService::Braintree::Result;
use URI;

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

sub generate {
    my ($self, $params) = @_;
    if ($params) {
        confess "ArgumentError" unless $self->_conditionally_verify_params($params);
        $params = {client_token => $params};
    }
    my $result = $self->_make_request("/client_token", 'post', $params);
    $result->{"response"}->{"client_token"}->{"value"};
}


sub _conditionally_verify_params {
    my ($self, $params) = @_;

    if (exists $params->{"customer_id"}) {
        verify_params($params, client_token_signature_with_customer_id);
    } else {
        verify_params($params, client_token_signature_without_customer_id);
  };
}

__PACKAGE__->meta->make_immutable;
1;