File Coverage

lib/WebService/Braintree/ClientTokenGateway.pm

Criterion	Covered	Total	%
statement	20	30	66.6
branch	0	6	0.0
condition			n/a
subroutine	7	9	77.7
pod	0	1	0.0
total	27	46	58.7

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

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;
__END__