Rename taxes() to tax_amounts()

2 files changed, 15 insertions, 14 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()
 
diff --git a/t/30parse.t b/t/30parse.t
index 3734631..6198468 100755
--- a/t/30parse.t
+++ b/t/30parse.t
@@ -6,7 +6,7 @@ use constant FIELDS => qw(
 			date
 			card_type
 			avs_response cvv2_response
-			total_amount taxes
+			total_amount tax_amounts
 			);
 
 use constant RESULTS => (
@@ -22,7 +22,7 @@ use constant RESULTS => (
 					avs_response	=> undef,
 					cvv2_response	=> undef,
 					total_amount	=> 3.88,
-					taxes		=> { GST => 0.25 },
+					tax_amounts	=> { GST => 0.25 },
 					uuid		=> 'f81d4fae-7dec-11d0-a765-00a0c91e6bf6',
 					guid		=> 'f81d4fae-7dec-11d0-a765-00a0c91e6bf6',
 				},
@@ -38,7 +38,7 @@ use constant RESULTS => (
 					avs_response	=> undef,
 					cvv2_response	=> undef,
 					total_amount	=> 3.88,
-					taxes		=> { GST => 0.25,
+					tax_amounts	=> { GST => 0.25,
 								PST => 0.27 },
 					uuid		=> undef,
 					guid		=> undef,