diff options
Diffstat (limited to 'InternetSecure.pm')
| -rwxr-xr-x | InternetSecure.pm | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/InternetSecure.pm b/InternetSecure.pm index f3eacc8..cb6d00e 100755 --- a/InternetSecure.pm +++ b/InternetSecure.pm @@ -42,12 +42,12 @@ sub set_defaults { receipt_number sales_number uuid guid date card_type cardholder - total_amount taxes + total_amount tax_amounts avs_response cvv2_response )); - # Just in case someone tries to call taxes() *before* submit() - $self->taxes( {} ); + # Just in case someone tries to call tax_amounts() *before* submit() + $self->tax_amounts( {} ); } # OnlinePayment's get_fields now filters out undefs in 3.x. :( @@ -231,10 +231,10 @@ sub infuse { } } -sub extract_taxes { +sub extract_tax_amounts { my ($self, $response) = @_; - my %taxes; + my %tax_amounts; my $products = $response->{Products}; return unless $products; @@ -245,11 +245,11 @@ sub extract_taxes { grep($_ eq '{TAX}', @$flags) && grep($_ eq '{CALCULATED}', @$flags)) { - $taxes{ $node->{code} } = $node->{subtotal}; + $tax_amounts{ $node->{code} } = $node->{subtotal}; } } - return %taxes; + return %tax_amounts; } # Parse the server's response and set various fields @@ -296,7 +296,7 @@ sub parse_response { $self->card_type(CARD_TYPES->{$self->card_type}); - $self->taxes( { $self->extract_taxes($response) } ); + $self->tax_amounts( { $self->extract_tax_amounts($response) } ); return $self; } @@ -544,10 +544,11 @@ Date and time of the transaction. Format is C<YYYY/MM/DD hh:mm:ss>. Total amount billed for this order, including taxes. -=item taxes() +=item tax_amounts() -Returns a I<reference> to a hash that maps tax names (such as C<GST>) to the -amount that was billed for each. +Returns a I<reference> to a hash that maps taxes, which were listed under the +B<taxes> argument to B<submit>(), to the amount that was calculated by +InternetSecure. =item cardholder() |