NPO-Accounting/perl-business-paypal-api
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Modified pods in modules to reflect test for Success+ return values.

Browse source
This commit is contained in:
Danny Hembree 2009-12-05 01:41:45 -08:00
parent 47b68fb3e8
commit 04de06bbf5
5 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/Business/PayPal/API/DirectPayments.pm
View file

@ -258,7 +258,7 @@ Example:
... ...
); );
unless( $resp{Ack} ne 'Success' ) { unless( $resp{Ack} !~ /Success/ ) {
for my $error ( @{$response{Errors}} ) { for my $error ( @{$response{Errors}} ) {
warn "Error: " . $error->{LongMessage} . "\n"; warn "Error: " . $error->{LongMessage} . "\n";
} }

2
lib/Business/PayPal/API/MassPay.pm
View file

@ -155,7 +155,7 @@ Example:
UniqueId => "123456", UniqueId => "123456",
Note => "Enjoy the money. Don't spend it all in one place." } ] ); Note => "Enjoy the money. Don't spend it all in one place." } ] );
unless( $resp{Ack} eq 'Success' ) { unless( $resp{Ack} !~ /Success/ ) {
die "Failed: " . $resp{Errors}[0]{LongMessage} . "\n"; die "Failed: " . $resp{Errors}[0]{LongMessage} . "\n";
} }

2
lib/Business/PayPal/API/ReauthorizationRequest.pm
View file

@ -108,7 +108,7 @@ Example:
CurrencyID => 'USD' CurrencyID => 'USD'
); );
unless( $resp{Ack} ne 'Success' ) { unless( $resp{Ack} !~ /Success/ ) {
for my $error ( @{$response{Errors}} ) { for my $error ( @{$response{Errors}} ) {
warn "Error: " . $error->{LongMessage} . "\n"; warn "Error: " . $error->{LongMessage} . "\n";
} }

2
lib/Business/PayPal/API/RefundTransaction.pm
View file

@ -123,7 +123,7 @@ Example:
RefundType => 'Partial', RefundType => 'Partial',
Amount => '15.00', ); Amount => '15.00', );
unless( $resp{Ack} ne 'Success' ) { unless( $resp{Ack} !~ /Success/ ) {
for my $error ( @{$response{Errors}} ) { for my $error ( @{$response{Errors}} ) {
warn "Error: " . $error->{LongMessage} . "\n"; warn "Error: " . $error->{LongMessage} . "\n";
} }

2
lib/Business/PayPal/API/VoidRequest.pm
View file

@ -101,7 +101,7 @@ Example:
my %resp = $pp->DoVoidRequest( AuthorizationID => $trans_id, my %resp = $pp->DoVoidRequest( AuthorizationID => $trans_id,
Note => 'Sorry about that.' ); Note => 'Sorry about that.' );
unless( $resp{Ack} ne 'Success' ) { unless( $resp{Ack} !~ /Success/ ) {
for my $error ( @{$response{Errors}} ) { for my $error ( @{$response{Errors}} ) {
warn "Error: " . $error->{LongMessage} . "\n"; warn "Error: " . $error->{LongMessage} . "\n";
} }