diff options
| -rw-r--r-- | BatchPayment.pm | 6 | ||||
| -rw-r--r-- | BatchPayment/Item.pm | 4 | ||||
| -rw-r--r-- | Changes | 3 |
3 files changed, 6 insertions, 7 deletions
diff --git a/BatchPayment.pm b/BatchPayment.pm index 86ee6b9..abc2a83 100644 --- a/BatchPayment.pm +++ b/BatchPayment.pm @@ -16,13 +16,9 @@ $DEBUG = 0; Business::BatchPayment - Batch-oriented payment processing -=head1 VERSION - -Version 0.01 - =cut -our $VERSION = '0.01'; +our $VERSION = '0.02_01'; =head1 SYNOPSIS diff --git a/BatchPayment/Item.pm b/BatchPayment/Item.pm index 996c646..c719efc 100644 --- a/BatchPayment/Item.pm +++ b/BatchPayment/Item.pm @@ -31,7 +31,7 @@ Item TO the account identified by the Processor object's login settings." =cut -enum 'Action' => qw(payment credit); +enum 'Action' => [qw(payment credit)]; coerce 'Action', from 'Str', via { lc $_ }; has action => ( is => 'rw', @@ -49,7 +49,7 @@ and if set on the Processor object, this is not required. =cut # are we okay with these names? -enum 'PaymentType' => qw( CC ECHECK ); +enum 'PaymentType' => [qw( CC ECHECK )]; has payment_type => ( is => 'rw', isa => 'PaymentType' ); =item amount @@ -1,4 +1,7 @@ Revision history for Business-BatchPayment +0.02_01 unreleased + - fix warning about Action: Passing a list of values to enum is deprecated. Enum values should be wrapped in an arrayref. + 0.01 unreleased |