Subject: | Fwd: Minor fix to Finance::Bank::Bankwest |
Date: | Tue, 11 Mar 2014 13:35:02 +1100 |
To: | bug-finance-bank-bankwest@rt.cpan.org |
From: | Owen Hollands <owenhollands@gmail.com> |
---------- Forwarded message ----------
From: Owen Hollands <owenhollands@gmail.com>
Date: Thu, Mar 6, 2014 at 12:43 PM
Subject: Minor fix to Finance::Bank::Bankwest
To: bug-financebank-bankwest@rt.cpan.org
From: Owen Hollands <owenhollands@gmail.com>
Date: Thu, Mar 6, 2014 at 12:43 PM
Subject: Minor fix to Finance::Bank::Bankwest
To: bug-financebank-bankwest@rt.cpan.org
In short, the "type" field of a transaction ins blank (undef) for credit card "Authorisation Only" transaction. In Transaction.pm I ahve added "Maybe" to the type check
--- ./Transaction.pm 2013-08-08 11:25:25.000000000 +1000
+++ /Users/owenhollands/perl5/lib/perl5/Finance/Bank/Bankwest/Transaction.pm 2014-03-05 10:11:41.000000000 +1100
@@ -16,7 +16,7 @@
[ narrative => 'Str' ],
[ cheque_num => 'Maybe[Str]' ],
[ amount => 'Maybe[Num]' ],
- [ type => 'Str' ],
+ [ type => 'Maybe[Str]' ],
) {
my ($attr, $type) = @$_;
has $attr => ( isa => $type, is => 'ro', required => 1 );