Added UUID support

[Business-OnlinePayment-InternetSecure.git] / InternetSecure.pm

diff --git a/InternetSecure.pm b/InternetSecure.pm
index 2ad18fd..34acc97 100755 (executable)
--- 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>.