error callbacks, more structure for parse/format methods

1 files changed, 9 insertions, 0 deletions

diff --git a/BatchPayment/Batch.pm b/BatchPayment/Batch.pm
index eb6716e..d31baae 100644
--- a/BatchPayment/Batch.pm
+++ b/BatchPayment/Batch.pm
@@ -12,6 +12,9 @@ to a bank (or returned from a bank) as a batch.
 
 =over 4
 
+=item incoming - Flag for one-way batches.  The processor must set
+this if the batch was originated by the gateway.
+
 =item batch_id - Batch identifier.  The format is processor-specific
 but usually must be a positive integer, if it's used at all.
 
@@ -30,8 +33,14 @@ included in the batch.
 
 package Business::BatchPayment::Batch;
 
+use strict;
 use Moose;
 
+has incoming => (
+  is => 'rw',
+  isa => 'Bool',
+);
+
 has batch_id => (
   is => 'rw',
   isa => 'Str',