Added UUID support

1 files changed, 12 insertions, 1 deletions

diff --git a/InternetSecure.pm b/InternetSecure.pm
index 2ad18fd..34acc97 100755
--- a/InternetSecure.pm
+++ b/InternetSecure.pm
@@ -37,7 +37,7 @@ sub set_defaults {
 	$self->path('/process.cgi');
 
 	$self->build_subs(qw(
-				receipt_number	sales_number
+				receipt_number	sales_number	uuid	guid
 				date
 				card_type	cardholder
 				total_amount
@@ -249,6 +249,8 @@ sub parse_response {
 
 			receipt_number	=> 'ReceiptNumber',
 			sales_number	=> 'SalesOrderNumber',
+			uuid		=> 'GUID',
+			guid		=> 'GUID',
 
 			date		=> 'Date',
 			cardholder	=> 'xxxName',
@@ -467,6 +469,15 @@ InternetSecure transactions.
 Sales order number of this transaction.  This is a number, unique to each
 merchant, which is incremented by 1 each time.
 
+=item uuid()
+
+Universally Unique Identifier associated to this transaction.  This is a
+128-bit value returned as a 36-character string such as
+C<f81d4fae-7dec-11d0-a765-00a0c91e6bf6>.  See RFC 4122 for more details on
+UUIDs.
+
+B<guid>() is provided as an alias to this method.
+
 =item date()
 
 Date and time of the transaction.  Format is C<YYYY/MM/DD hh:mm:ss>.