Allow for taxes to be a reference

1 files changed, 5 insertions, 3 deletions

diff --git a/InternetSecure.pm b/InternetSecure.pm
index a7b1d0f..9aa2d8d 100755
--- a/InternetSecure.pm
+++ b/InternetSecure.pm
@@ -108,9 +108,11 @@ sub prod_string {
 
 	my @flags = ($currency);
 
-	foreach (split ' ' => uc($data{taxes} || '')) {
-		croak "Unknown tax code $_" unless /^(GST|PST|HST)$/;
-		push @flags, $_;
+	foreach (ref $data{taxes} ?
+			@{ $data{taxes} } :
+			split(' ' => $data{taxes} || '')) {
+		croak "Unknown tax code $_" unless /^(GST|PST|HST)$/i;
+		push @flags, uc $_;
 	}
 
 	if ($self->test_transaction) {