Business-AuthorizeNet-CIM

 view release on metacpan or  search on metacpan

lib/Business/AuthorizeNet/CIM.pm  view on Meta::CPAN

488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
        }
        $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');

lib/Business/AuthorizeNet/CIM.pm  view on Meta::CPAN

514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
            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');

lib/Business/AuthorizeNet/CIM.pm  view on Meta::CPAN

584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
        $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');

lib/Business/AuthorizeNet/CIM.pm  view on Meta::CPAN

616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
 
    $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);