Allow for taxes to be a reference

diff --git a/InternetSecure.pm b/InternetSecure.pm
index a7b1d0f..9aa2d8d 100755 (executable)
--- 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) {