failure status

diff --git a/BatchPayment/Batch.pm b/BatchPayment/Batch.pm
index 16f1738..b05eb80 100644 (file)
--- a/BatchPayment/Batch.pm
+++ b/BatchPayment/Batch.pm
@@ -82,7 +82,6 @@ has items => (
 );
 
 class_type 'DateTime';
-coerce 'DateTime', from 'Int', via { DateTime->from_epoch($_) };
 
 has process_date    => (
   is => 'rw',

diff --git a/BatchPayment/Item.pm b/BatchPayment/Item.pm
index 8a203ac..996c646 100644 (file)
--- a/BatchPayment/Item.pm
+++ b/BatchPayment/Item.pm
@@ -310,6 +310,28 @@ account again.
 The message returned by the gateway.  This may contain a value even 
 if the payment was successful (use C<approved> to determine that.)
 
+=item failure_status
+
+A normalized failure status, from the following list:
+
+=over 4
+
+=item expired
+
+=item nsf (non-sufficient funds / credit limit)
+
+=item stolen
+
+=item pickup
+
+=item blacklisted
+
+=item inactive
+
+=item decline (other card/transaction declines)
+
+=back
+
 =back
 
 =cut
@@ -325,6 +347,17 @@ has [qw(
   assigned_token
 )] => ( is => 'rw', isa => 'Str');
 
+enum FailureStatus => qw(
+  expired
+  nsf
+  stolen
+  pickup
+  blacklisted
+  inactive
+  decline
+);
+has failure_status  => ( is => 'rw', isa => 'Maybe[FailureStatus]' );
+
 has check_number => ( is => 'rw', isa => 'Int' );
 
 around 'BUILDARGS' => sub {