File Coverage

blib/lib/Business/AuthorizeNet/CIM.pm

Criterion	Covered	Total	%
statement	18	625	2.8
branch	0	276	0.0
condition	0	38	0.0
subroutine	6	35	17.1
pod	25	25	100.0
total	49	999	4.9

package Business::AuthorizeNet::CIM;
$Business::AuthorizeNet::CIM::VERSION = '0.19';

# ABSTRACT: Authorize.Net Customer Information Manager (CIM) Web Services API

use strict;
use warnings;
use Carp qw/croak/;
use LWP::UserAgent;
use XML::Writer;
use XML::Simple 'XMLin';

sub new {
    my $class = shift;
    my $args  = scalar @_ % 2 ? shift : {@_};

    # validate
    $args->{login}          or croak 'login is required';
    $args->{transactionKey} or croak 'transactionKey is required';

    if ($args->{test_mode} || $args->{test_host_only}) {
        $args->{url} = 'https://apitest.authorize.net/xml/v1/request.api';
    } else {
        $args->{url} = 'https://api2.authorize.net/xml/v1/request.api';
    }

    unless ($args->{ua}) {
        my $ua_args = delete $args->{ua_args} || {};
        $args->{ua} = LWP::UserAgent->new(%$ua_args);
    }

    bless $args, $class;
}

sub createTransactionRequest {
    my $self       = shift;
    my $trans_type = shift;
    my $args       = scalar @_ % 2 ? shift : {@_};

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('createTransactionRequest', 'xmlns' => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $self->_addAuthentication($writer);

    $writer->dataElement('refId', $args->{refId}) if defined $args->{refId};
    $writer->startTag('transactionRequest');
    $writer->dataElement('transactionType', $trans_type);
    $writer->dataElement('amount',          $args->{amount}) if exists $args->{amount};

    if (exists $args->{opaqueData}) {
        $writer->startTag('payment');
        $writer->startTag('opaqueData');
        foreach my $k (qw/dataDescriptor dataValue/) {
            $writer->dataElement($k, $args->{opaqueData}->{$k});
        }
        $writer->endTag('opaqueData');
        $writer->endTag('payment');
    }

    if (exists $args->{customerProfileId} && exists $args->{customerPaymentProfileId}) {
        $writer->startTag('profile');
        $writer->dataElement('customerProfileId', $args->{customerProfileId});
        $writer->startTag('paymentProfile');
        $writer->dataElement('paymentProfileId', $args->{customerPaymentProfileId});
        $writer->endTag('paymentProfile');
        $writer->endTag('profile');
    }

    if (exists $args->{creditCard}) {
        $writer->startTag('payment');
        $writer->startTag('creditCard');
        foreach my $k ('cardNumber', 'expirationDate', 'cardCode') {
            $writer->dataElement($k, $args->{creditCard}->{$k})
                if exists $args->{creditCard}->{$k};
        }
        $writer->endTag('creditCard');
        $writer->endTag('payment');
    }
    if (exists $args->{bankAccount}) {
        $writer->startTag('payment');
        $writer->startTag('bankAccount');
        foreach my $k ('accountType', 'routingNumber', 'accountNumber', 'nameOnAccount', 'echeckType', 'bankName', 'checkNumber') {
            $writer->dataElement($k, $args->{bankAccount}->{$k});
        }
        $writer->endTag('bankAccount');
        $writer->endTag('payment');
    }

    $writer->dataElement('refTransId', $args->{refTransId})
        if (exists $args->{refTransId}
        and ($trans_type eq 'priorAuthCaptureTransaction' or $trans_type eq 'refundTransaction' or $trans_type eq 'voidTransaction'));

    if (exists $args->{order}) {
        $writer->startTag('order');
        foreach my $k ('invoiceNumber', 'description') {
            $writer->dataElement($k, $args->{order}->{$k})
                if exists $args->{order}->{$k};
        }
        $writer->endTag('order');
    }

    if (exists $args->{lineItems}) {
        $writer->startTag('lineItems');
        my @lineItems = (ref($args->{lineItems}) eq 'ARRAY') ? @{$args->{lineItems}} : ($args->{lineItems});
        foreach my $lineItem (@lineItems) {
            $writer->startTag('lineItem');
            foreach my $k ('itemId', 'name', 'description', 'quantity', 'unitPrice', 'taxable') {
                $writer->dataElement($k, $lineItem->{$k})
                    if exists $lineItem->{$k};
            }
            $writer->endTag('lineItem');
        }
        $writer->endTag('lineItems');
    }

    foreach my $type ('tax', 'shipping', 'duty') {
        next unless exists $args->{$type};
        $writer->startTag($type);
        foreach my $k ('amount', 'name', 'description') {
            $writer->dataElement($k, $args->{$type}->{$k})
                if exists $args->{$type}->{$k};
        }
        $writer->endTag($type);
    }

    $writer->dataElement('poNumber',  $args->{poNumber})  if exists $args->{poNumber};
    $writer->dataElement('taxExempt', $args->{taxExempt}) if exists $args->{taxExempt};

    if (exists $args->{customerId}) {
        $writer->startTag('customer');
        $writer->dataElement('id', $args->{customerId});
        $writer->endTag('customer');
    }

    my @flds      = ('firstName', 'lastName', 'company', 'address', 'city', 'state', 'zip', 'country');
    my $bill_addr = exists $args->{billTo} ? $args->{billTo} : $args;
    if (grep { exists $bill_addr->{$_} } @flds) {
        $writer->startTag('billTo');
        foreach my $k (@flds) {
            $writer->dataElement($k, $bill_addr->{$k})
                if exists $bill_addr->{$k};
        }
        $writer->endTag('billTo');
    }

    my $ship_addr = exists $args->{shipTo} ? $args->{shipTo} : $args;
    if (grep { exists $ship_addr->{$_} } @flds) {
        $writer->startTag('shipTo');
        foreach my $k (@flds) {
            $writer->dataElement($k, $ship_addr->{$k})
                if exists $ship_addr->{$k};
        }
        $writer->endTag('shipTo');
    }

    $writer->dataElement('customerIP', $args->{customerIP}) if exists $args->{customerIP};

    if (exists $args->{transactionSettings}) {
        $writer->startTag('transactionSettings');
        foreach my $setting (keys %{$args->{transactionSettings}}) {
            $writer->startTag('setting');
            $writer->dataElement('settingName',  $setting);
            $writer->dataElement('settingValue', $args->{transactionSettings}{$setting});
            $writer->endTag('setting');
        }
        $writer->endTag('transactionSettings');
    }

    $writer->endTag('transactionRequest');
    $writer->endTag('createTransactionRequest');
    $writer->end;

    return $self->_send($xml);
}

sub _need_payment_profiles_section {
    my ($self, $args) = @_;
    return
           exists $args->{billTo}
        || exists $args->{creditCard}
        || exists $args->{bankAccount}
        || exists $args->{opaqueData}
        || ($args->{use_shipToList_as_billTo} and $args->{shipToList});
}

sub createCustomerProfile {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('createCustomerProfileRequest', 'xmlns' => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $writer->startTag('merchantAuthentication');
    $writer->dataElement('name',           $self->{login});
    $writer->dataElement('transactionKey', $self->{transactionKey});
    $writer->endTag('merchantAuthentication');
    $writer->dataElement('refId', $args->{refId}) if exists $args->{refId};
    $writer->startTag('profile');

    foreach my $k ('merchantCustomerId', 'description', 'email') {
        $writer->dataElement($k, $args->{$k})
            if exists $args->{$k};
    }

    my @flds = qw(
        firstName lastName company address city state zip country
        phoneNumber faxNumber
    );

    my $need_payment_profiles = $self->_need_payment_profiles_section($args);
    if ($need_payment_profiles) {
        $writer->startTag('paymentProfiles');
        $writer->dataElement('customerType', $args->{'customerType'}) if exists $args->{'customerType'};

        if (exists $args->{billTo} or ($args->{use_shipToList_as_billTo} and $args->{shipToList})) {
            my $addr = exists $args->{billTo} ? $args->{billTo} : $args->{shipToList};
            $writer->startTag('billTo');
            foreach my $k (@flds) {
                $writer->dataElement($k, $addr->{$k})
                    if exists $addr->{$k};
            }
            $writer->endTag('billTo');
        }

        $writer->startTag('payment');

        if (exists $args->{creditCard}) {
            $writer->startTag('creditCard');
            foreach my $k ('cardNumber', 'expirationDate', 'cardCode') {
                $writer->dataElement($k, $args->{creditCard}->{$k})
                    if exists $args->{creditCard}->{$k};
            }
            $writer->endTag('creditCard');
        }
        if (exists $args->{bankAccount}) {
            $writer->startTag('bankAccount');
            foreach my $k ('accountType', 'routingNumber', 'accountNumber', 'nameOnAccount', 'echeckType', 'bankName') {
                $writer->dataElement($k, $args->{bankAccount}->{$k});
            }
            $writer->endTag('bankAccount');
        }
        if (exists $args->{opaqueData}) {
            $writer->startTag('opaqueData');
            foreach my $k (qw/dataDescriptor dataValue/) {
                $writer->dataElement($k, $args->{opaqueData}->{$k});
            }
            $writer->endTag('opaqueData');
        }

        $writer->endTag('payment');
        $writer->endTag('paymentProfiles');
    }

    if (exists $args->{shipToList} or ($args->{use_billTo_as_shipToList} and $args->{billTo})) {
        my $addr = exists $args->{shipToList} ? $args->{shipToList} : $args->{billTo};
        $writer->startTag('shipToList');
        foreach my $k (@flds) {
            $writer->dataElement($k, $addr->{$k})
                if exists $addr->{$k};
        }
        $writer->endTag('shipToList');
    }

    $writer->endTag('profile');
    if ($need_payment_profiles) {
        if ($self->{test_mode}) {
            $writer->dataElement('validationMode', 'testMode');
        } elsif ($args->{validationMode}) {
            $writer->dataElement('validationMode', $args->{validationMode});
        } else {
            $writer->dataElement('validationMode', 'liveMode');
        }
    }
    $writer->endTag('createCustomerProfileRequest');
    $writer->end;

    return $self->_send($xml);
}

sub createCustomerPaymentProfileRequest {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('createCustomerPaymentProfileRequest', 'xmlns' => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $writer->startTag('merchantAuthentication');
    $writer->dataElement('name',           $self->{login});
    $writer->dataElement('transactionKey', $self->{transactionKey});
    $writer->endTag('merchantAuthentication');
    $writer->dataElement('refId',             $args->{refId}) if exists $args->{refId};
    $writer->dataElement('customerProfileId', $args->{customerProfileId});
    $writer->startTag('paymentProfile');
    $writer->dataElement('customerType', $args->{'customerType'}) if exists $args->{'customerType'};

    my @flds = ('firstName', 'lastName', 'company', 'address', 'city', 'state', 'zip', 'country', 'phoneNumber', 'faxNumber');
    my $addr = exists $args->{billTo} ? $args->{billTo} : $args;
    if (grep { exists $addr->{$_} } @flds) {
        $writer->startTag('billTo');
        foreach my $k (@flds) {
            $writer->dataElement($k, $addr->{$k})
                if exists $addr->{$k};
        }
        $writer->endTag('billTo');
    }

    $writer->startTag('payment');

    if (exists $args->{creditCard}) {
        $writer->startTag('creditCard');
        foreach my $k ('cardNumber', 'expirationDate', 'cardCode') {
            $writer->dataElement($k, $args->{creditCard}->{$k})
                if exists $args->{creditCard}->{$k};
        }
        $writer->endTag('creditCard');
    }
    if (exists $args->{bankAccount}) {
        $writer->startTag('bankAccount');
        foreach my $k ('accountType', 'routingNumber', 'accountNumber', 'nameOnAccount', 'echeckType', 'bankName') {
            $writer->dataElement($k, $args->{bankAccount}->{$k});
        }
        $writer->endTag('bankAccount');
    }
    if (exists $args->{opaqueData}) {
        $writer->startTag('opaqueData');
        foreach my $k (qw/dataDescriptor dataValue/) {
            $writer->dataElement($k, $args->{opaqueData}->{$k});
        }
        $writer->endTag('opaqueData');
    }

    $writer->endTag('payment');
    $writer->endTag('paymentProfile');

    if ($self->{test_mode}) {
        $writer->dataElement('validationMode', 'testMode');
    } elsif ($args->{validationMode}) {
        $writer->dataElement('validationMode', $args->{validationMode});
    } else {
        $writer->dataElement('validationMode', 'liveMode');
    }
    $writer->endTag('createCustomerPaymentProfileRequest');
    $writer->end;

    return $self->_send($xml);
}

sub createCustomerShippingAddressRequest {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('createCustomerShippingAddressRequest', 'xmlns' => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $writer->startTag('merchantAuthentication');
    $writer->dataElement('name',           $self->{login});
    $writer->dataElement('transactionKey', $self->{transactionKey});
    $writer->endTag('merchantAuthentication');
    $writer->dataElement('refId',             $args->{refId}) if exists $args->{refId};
    $writer->dataElement('customerProfileId', $args->{customerProfileId});
    $writer->startTag('address');

    my @flds = ('firstName', 'lastName', 'company', 'address', 'city', 'state', 'zip', 'country', 'phoneNumber', 'faxNumber');
    my $addr = exists $args->{shipToList} ? $args->{shipToList} : $args;
    foreach my $k (@flds) {
        $writer->dataElement($k, $addr->{$k})
            if exists $addr->{$k};
    }

    $writer->endTag('address');
    $writer->endTag('createCustomerShippingAddressRequest');
    $writer->end;

    return $self->_send($xml);
}

sub createCustomerProfileTransaction {
    my $self       = shift;
    my $trans_type = shift;
    my $args       = scalar @_ % 2 ? shift : {@_};

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('createCustomerProfileTransactionRequest', 'xmlns' => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $writer->startTag('merchantAuthentication');
    $writer->dataElement('name',           $self->{login});
    $writer->dataElement('transactionKey', $self->{transactionKey});
    $writer->endTag('merchantAuthentication');
    $writer->dataElement('refId', $args->{refId}) if exists $args->{refId};
    $writer->startTag('transaction');
    $writer->startTag($trans_type);    # profileTransAuthOnly, profileTransPriorAuthCapture etc
    $writer->dataElement('amount', $args->{amount}) if exists $args->{amount};

    foreach my $type ('tax', 'shipping', 'duty') {
        next unless exists $args->{$type};
        $writer->startTag($type);
        foreach my $k ('amount', 'name', 'description') {
            $writer->dataElement($k, $args->{$type}->{$k})
                if exists $args->{$type}->{$k};
        }
        $writer->endTag($type);
    }

    # lineItems
    if (exists $args->{lineItems}) {
        my @lineItems = (ref($args->{lineItems}) eq 'ARRAY') ? @{$args->{lineItems}} : ($args->{lineItems});
        foreach my $lineItem (@lineItems) {
            $writer->startTag('lineItems');
            foreach my $k ('itemId', 'name', 'description', 'quantity', 'unitPrice', 'taxable') {
                $writer->dataElement($k, $lineItem->{$k})
                    if exists $lineItem->{$k};
            }
            $writer->endTag('lineItems');
        }
    }

    $writer->dataElement('customerProfileId', $args->{customerProfileId})
        if $args->{customerProfileId};
    $writer->dataElement('customerPaymentProfileId', $args->{customerPaymentProfileId})
        if $args->{customerPaymentProfileId};
    $writer->dataElement('customerShippingAddressId', $args->{customerShippingAddressId})
        if $args->{customerShippingAddressId};

    if ($trans_type eq 'profileTransRefund') {
        foreach my $k ('creditCardNumberMasked', 'bankRoutingNumberMasked', 'bankAccountNumberMasked') {
            $writer->dataElement($k, $args->{$k})
                if exists $args->{$k};
        }
    }

    # order
    if (exists $args->{order}) {
        $writer->startTag('order');
        foreach my $k ('invoiceNumber', 'description', 'purchaseOrderNumber') {
            $writer->dataElement($k, $args->{order}->{$k})
                if exists $args->{order}->{$k};
        }
        $writer->endTag('order');
    }

    $writer->dataElement('transId', $args->{transId})
        if (exists $args->{transId}
        and ($trans_type eq 'profileTransPriorAuthCapture' or $trans_type eq 'profileTransRefund' or $trans_type eq 'profileTransVoid'));

    $writer->dataElement('taxExempt', $args->{taxExempt})
        if exists $args->{taxExempt};
    $writer->dataElement('recurringBilling', $args->{recurringBilling})
        if exists $args->{recurringBilling};
    $writer->dataElement('cardCode',      $args->{cardCode}) if exists $args->{cardCode};
    $writer->dataElement('splitTenderId', $args->{splitTenderId})
        if exists $args->{splitTenderId};
    $writer->dataElement('approvalCode', $args->{approvalCode})
        if exists $args->{approvalCode} and $trans_type eq 'profileTransCaptureOnly';

    $writer->endTag($trans_type);
    $writer->endTag('transaction');

    $writer->dataElement('extraOptions', $args->{extraOptions})
        if exists $args->{extraOptions};

    $writer->endTag('createCustomerProfileTransactionRequest');
    $writer->end;

    return $self->_send($xml);
}

sub deleteCustomerProfile {
    my ($self, $customerProfileId) = @_;

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('deleteCustomerProfileRequest', 'xmlns' => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $writer->startTag('merchantAuthentication');
    $writer->dataElement('name',           $self->{login});
    $writer->dataElement('transactionKey', $self->{transactionKey});
    $writer->endTag('merchantAuthentication');
    $writer->dataElement('customerProfileId', $customerProfileId);
    $writer->endTag('deleteCustomerProfileRequest');

    return $self->_send($xml);
}

sub deleteCustomerPaymentProfileRequest {
    my ($self, $customerProfileId, $customerPaymentProfileId) = @_;

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('deleteCustomerPaymentProfileRequest', 'xmlns' => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $writer->startTag('merchantAuthentication');
    $writer->dataElement('name',           $self->{login});
    $writer->dataElement('transactionKey', $self->{transactionKey});
    $writer->endTag('merchantAuthentication');
    $writer->dataElement('customerProfileId',        $customerProfileId);
    $writer->dataElement('customerPaymentProfileId', $customerPaymentProfileId);
    $writer->endTag('deleteCustomerPaymentProfileRequest');
    $writer->end;

    return $self->_send($xml);
}

sub deleteCustomerShippingAddressRequest {
    my ($self, $customerProfileId, $customerAddressId) = @_;

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('deleteCustomerShippingAddressRequest', 'xmlns' => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $writer->startTag('merchantAuthentication');
    $writer->dataElement('name',           $self->{login});
    $writer->dataElement('transactionKey', $self->{transactionKey});
    $writer->endTag('merchantAuthentication');
    $writer->dataElement('customerProfileId', $customerProfileId);
    $writer->dataElement('customerAddressId', $customerAddressId);
    $writer->endTag('deleteCustomerShippingAddressRequest');

    return $self->_send($xml);
}

sub getCustomerProfileIds {
    my $self = shift;

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('getCustomerProfileIdsRequest', 'xmlns' => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $writer->startTag('merchantAuthentication');
    $writer->dataElement('name',           $self->{login});
    $writer->dataElement('transactionKey', $self->{transactionKey});
    $writer->endTag('merchantAuthentication');
    $writer->endTag('getCustomerProfileIdsRequest');
    $writer->end;

    my $d = $self->_send($xml);

    return () unless $d->{ids};

    my $id_num = $d->{ids}->{numericString};
    my @ids =
          ref($id_num) eq 'ARRAY' ? @$id_num
        : defined $id_num         ? ($id_num)
        :                           ();

    return @ids;
}

sub getCustomerProfile {
    my ($self, $customerProfileId) = @_;

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('getCustomerProfileRequest', 'xmlns' => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $writer->startTag('merchantAuthentication');
    $writer->dataElement('name',           $self->{login});
    $writer->dataElement('transactionKey', $self->{transactionKey});
    $writer->endTag('merchantAuthentication');
    $writer->dataElement('customerProfileId', $customerProfileId);
    $writer->endTag('getCustomerProfileRequest');
    $writer->end;

    return $self->_send($xml);
}

sub getCustomerPaymentProfileRequest {
    my ($self, $customerProfileId, $customerPaymentProfileId, $args) = @_;

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('getCustomerPaymentProfileRequest', 'xmlns' => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $writer->startTag('merchantAuthentication');
    $writer->dataElement('name',           $self->{login});
    $writer->dataElement('transactionKey', $self->{transactionKey});
    $writer->endTag('merchantAuthentication');
    $writer->dataElement('customerProfileId',        $customerProfileId);
    $writer->dataElement('customerPaymentProfileId', $customerPaymentProfileId);

    if ($args) {

        # for backwards compatability, if a true non-hash value is passed through
        # we want to act as though we were passed the legacy boolean flag for setting
        # 'unmaskExpirationDate' directly.
        if (ref($args) eq 'HASH') {
            for my $dataElement (grep { exists $args->{$_} } qw(unmaskExpirationDate includeIssuerInfo)) {
                $writer->dataElement($dataElement, $args->{$dataElement});
            }
        } else {
            $writer->dataElement('unmaskExpirationDate', 'true');
        }
    }
    $writer->endTag('getCustomerPaymentProfileRequest');

    return $self->_send($xml);
}

sub getCustomerShippingAddressRequest {
    my ($self, $customerProfileId, $customerAddressId) = @_;

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('getCustomerShippingAddressRequest', 'xmlns' => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $writer->startTag('merchantAuthentication');
    $writer->dataElement('name',           $self->{login});
    $writer->dataElement('transactionKey', $self->{transactionKey});
    $writer->endTag('merchantAuthentication');
    $writer->dataElement('customerProfileId', $customerProfileId);
    $writer->dataElement('customerAddressId', $customerAddressId);
    $writer->endTag('getCustomerShippingAddressRequest');
    $writer->end;

    return $self->_send($xml);
}

sub getHostedProfilePageRequest {
    my ($self, $customerProfileId, $args) = @_;

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('getHostedProfilePageRequest', 'xmlns' => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $writer->startTag('merchantAuthentication');
    $writer->dataElement('name',           $self->{login});
    $writer->dataElement('transactionKey', $self->{transactionKey});
    $writer->endTag('merchantAuthentication');
    $writer->dataElement('customerProfileId', $customerProfileId);

    if ($args) {
        $writer->startTag('hostedProfileSettings');
        foreach my $name (keys %{$args}) {
            $writer->startTag('setting');
            $writer->dataElement('settingName',  $name);
            $writer->dataElement('settingValue', $args->{$name});
            $writer->endTag('setting');
        }
        $writer->endTag('hostedProfileSettings');
    }

    $writer->endTag('getHostedProfilePageRequest');
    $writer->end;

    return $self->_send($xml);
}

sub updateCustomerProfile {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('updateCustomerProfileRequest', 'xmlns' => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $writer->startTag('merchantAuthentication');
    $writer->dataElement('name',           $self->{login});
    $writer->dataElement('transactionKey', $self->{transactionKey});
    $writer->endTag('merchantAuthentication');
    $writer->dataElement('refId', $args->{refId}) if exists $args->{refId};
    $writer->startTag('profile');

    foreach my $k ('merchantCustomerId', 'description', 'email') {
        $writer->dataElement($k, $args->{$k})
            if exists $args->{$k};
    }
    $writer->dataElement('customerProfileId', $args->{customerProfileId});
    $writer->endTag('profile');
    $writer->endTag('updateCustomerProfileRequest');
    $writer->end;

    return $self->_send($xml);
}

sub updateCustomerPaymentProfile {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('updateCustomerPaymentProfileRequest', 'xmlns' => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $writer->startTag('merchantAuthentication');
    $writer->dataElement('name',           $self->{login});
    $writer->dataElement('transactionKey', $self->{transactionKey});
    $writer->endTag('merchantAuthentication');
    $writer->dataElement('refId',             $args->{refId}) if exists $args->{refId};
    $writer->dataElement('customerProfileId', $args->{customerProfileId});

    $writer->startTag('paymentProfile');
    $writer->dataElement('customerType', $args->{'customerType'}) if exists $args->{'customerType'};

    my @flds = ('firstName', 'lastName', 'company', 'address', 'city', 'state', 'zip', 'country', 'phoneNumber', 'faxNumber');
    my $addr = exists $args->{billTo} ? $args->{billTo} : $args;
    if (grep { exists $addr->{$_} } @flds) {
        $writer->startTag('billTo');
        foreach my $k (@flds) {
            $writer->dataElement($k, $addr->{$k})
                if exists $addr->{$k};
        }
        $writer->endTag('billTo');
    }

    $writer->startTag('payment');

    if (exists $args->{creditCard}) {
        $writer->startTag('creditCard');
        foreach my $k ('cardNumber', 'expirationDate', 'cardCode') {
            $writer->dataElement($k, $args->{creditCard}->{$k})
                if exists $args->{creditCard}->{$k};
        }
        $writer->endTag('creditCard');
    }
    if (exists $args->{bankAccount}) {
        $writer->startTag('bankAccount');
        foreach my $k ('accountType', 'routingNumber', 'accountNumber', 'nameOnAccount', 'echeckType', 'bankName') {
            $writer->dataElement($k, $args->{bankAccount}->{$k});
        }
        $writer->endTag('bankAccount');
    }
    if (exists $args->{opaqueData}) {
        $writer->startTag('opaqueData');
        foreach my $k (qw/dataDescriptor dataValue/) {
            $writer->dataElement($k, $args->{opaqueData}->{$k});
        }
        $writer->endTag('opaqueData');
    }

    $writer->endTag('payment');
    $writer->dataElement('customerPaymentProfileId', $args->{customerPaymentProfileId});
    $writer->endTag('paymentProfile');

    if ($self->{test_mode}) {
        $writer->dataElement('validationMode', 'testMode');
    } elsif ($args->{validationMode}) {
        $writer->dataElement('validationMode', $args->{validationMode});
    } else {
        $writer->dataElement('validationMode', 'liveMode');
    }
    $writer->endTag('updateCustomerPaymentProfileRequest');
    $writer->end;

    return $self->_send($xml);
}

sub updateCustomerShippingAddress {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('updateCustomerShippingAddressRequest', 'xmlns' => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $writer->startTag('merchantAuthentication');
    $writer->dataElement('name',           $self->{login});
    $writer->dataElement('transactionKey', $self->{transactionKey});
    $writer->endTag('merchantAuthentication');
    $writer->dataElement('refId',             $args->{refId}) if exists $args->{refId};
    $writer->dataElement('customerProfileId', $args->{customerProfileId})
        if exists $args->{customerProfileId};
    $writer->startTag('address');

    my @flds = ('firstName', 'lastName', 'company', 'address', 'city', 'state', 'zip', 'country', 'phoneNumber', 'faxNumber');
    my $addr = exists $args->{shipToList} ? $args->{shipToList} : $args;
    foreach my $k (@flds) {
        $writer->dataElement($k, $addr->{$k})
            if exists $addr->{$k};
    }

    $writer->dataElement('customerAddressId', $args->{customerAddressId});
    $writer->endTag('address');

    $writer->endTag('updateCustomerShippingAddressRequest');
    $writer->end;

    return $self->_send($xml);
}

sub updateSplitTenderGroupRequest {
    my ($self, $splitTenderId, $splitTenderStatus) = @_;

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('updateSplitTenderGroupRequest', 'xmlns' => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $writer->startTag('merchantAuthentication');
    $writer->dataElement('name',           $self->{login});
    $writer->dataElement('transactionKey', $self->{transactionKey});
    $writer->endTag('merchantAuthentication');
    $writer->dataElement('splitTenderId',     $splitTenderId);
    $writer->dataElement('splitTenderStatus', $splitTenderStatus);
    $writer->endTag('updateSplitTenderGroupRequest');
    $writer->end;

    return $self->_send($xml);
}

sub validateCustomerPaymentProfile {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('validateCustomerPaymentProfileRequest', 'xmlns' => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $writer->startTag('merchantAuthentication');
    $writer->dataElement('name',           $self->{login});
    $writer->dataElement('transactionKey', $self->{transactionKey});
    $writer->endTag('merchantAuthentication');
    $writer->dataElement('customerProfileId',         $args->{customerProfileId});
    $writer->dataElement('customerPaymentProfileId',  $args->{customerPaymentProfileId});
    $writer->dataElement('customerShippingAddressId', $args->{customerShippingAddressId})
        if $args->{customerShippingAddressId};
    $writer->dataElement('cardCode', $args->{cardCode}) if $args->{cardCode};

    if ($self->{test_mode}) {
        $writer->dataElement('validationMode', 'testMode');
    } else {
        $writer->dataElement('validationMode', 'liveMode');
    }
    $writer->endTag('validateCustomerPaymentProfileRequest');
    $writer->end;

    return $self->_send($xml);
}

sub getMerchantDetailsRequest {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('getMerchantDetailsRequest', xmlns => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $self->_addAuthentication($writer);
    $writer->endTag('getMerchantDetailsRequest');
    $writer->end;

    return $self->_send($xml);
}

sub getTransactionDetailsRequest {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('getTransactionDetailsRequest', xmlns => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $self->_addAuthentication($writer);

    $writer->dataElement(refId   => $args->{refId}) if defined $args->{refId};
    $writer->dataElement(transId => $args->{transId});

    $writer->endTag('getTransactionDetailsRequest');
    $writer->end;

    return $self->_send($xml);
}

sub getTransactionListForCustomerRequest {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('getTransactionListForCustomerRequest', xmlns => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $self->_addAuthentication($writer);

    $writer->dataElement(refId                    => $args->{refId}) if defined $args->{refId};
    $writer->dataElement(customerProfileId        => $args->{customerProfileId});
    $writer->dataElement(customerPaymentProfileId => $args->{customerPaymentProfileId})
        if $args->{customerPaymentProfileId};

    $self->_addHash($writer, 'sorting', $args, qw);
    $self->_addHash($writer, 'paging',  $args, qw);
    $writer->endTag('getTransactionListForCustomerRequest');
    $writer->end;

    return $self->_send($xml);
}

sub getUnsettledTransactionListRequest {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('getUnsettledTransactionListRequest', xmlns => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $self->_addAuthentication($writer);

    $writer->dataElement(refId => $args->{refId}) if defined $args->{refId};

    $self->_addHash($writer, 'sorting', $args, qw);
    $self->_addHash($writer, 'paging',  $args, qw);
    $writer->endTag('getUnsettledTransactionListRequest');
    $writer->end;

    return $self->_send($xml);
}

sub getSettledBatchListRequest {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('getSettledBatchListRequest', xmlns => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $self->_addAuthentication($writer);

    $writer->dataElement(refId             => $args->{refId}) if defined $args->{refId};
    $writer->dataElement(includeStatistics => $args->{includeStatistics})
        if defined $args->{includeStatistics};
    $writer->dataElement(firstSettlementDate => $args->{firstSettlementDate})
        if defined $args->{firstSettlementDate};
    $writer->dataElement(lastSettlementDate => $args->{lastSettlementDate})
        if defined $args->{lastSettlementDate};

    $writer->endTag('getSettledBatchListRequest');
    $writer->end;

    return $self->_send($xml);
}

sub getTransactionListRequest {
    my $self = shift;
    my $args = scalar @_ % 2 ? shift : {@_};

    my $xml;
    my $writer = XML::Writer->new(OUTPUT => \$xml);
    $writer->startTag('getTransactionListRequest', xmlns => 'AnetApi/xml/v1/schema/AnetApiSchema.xsd');
    $self->_addAuthentication($writer);

    $writer->dataElement(refId   => $args->{refId}) if defined $args->{refId};
    $writer->dataElement(batchId => $args->{batchId});

    $self->_addHash($writer, 'sorting', $args, qw);
    $self->_addHash($writer, 'paging',  $args, qw);
    $writer->endTag('getTransactionListRequest');
    $writer->end;

    return $self->_send($xml);
}

sub _addAuthentication {
    my ($self, $writer) = @_;
    $writer->startTag('merchantAuthentication');
    $writer->dataElement(name           => $self->{login});
    $writer->dataElement(transactionKey => $self->{transactionKey});
    $writer->endTag('merchantAuthentication');
}

sub _addHash {
    my ($self, $writer, $tagname, $argsref, @selectedkeys) = @_;
    return unless my $hash = $argsref->{$tagname};
    @selectedkeys = keys %$hash unless @selectedkeys;

    $writer->startTag($tagname);
    foreach my $k (@selectedkeys) {
        $writer->dataElement($k => $hash->{$k}) if defined $hash->{$k};
    }
    $writer->endTag($tagname);
}

sub _send {
    my ($self, $xml) = @_;

    $xml = '' . "\n" . $xml;
    print "\n\n" if $self->{debug};
    my $resp = $self->{ua}->post($self->{url}, Content => $xml, 'Content-Type' => 'text/xml');
    print "\n\n" if $self->{debug};

    my $d = XMLin($resp->content, SuppressEmpty => '');
    return $d;
}

1;

__END__