use strict;
use Carp;
-use Business::OnlinePayment 3;
-use Business::OnlinePayment::HTTPS;
+use Business::OnlinePayment ;#3;
+#use Business::OnlinePayment::HTTPS;
use Text::CSV_XS;
use vars qw( @ISA $VERSION $DEBUG );
-$VERSION = "0.2";
+$VERSION = "0.3";
$DEBUG = 0;
-@ISA = qw( Business::OnlinePayment::HTTPS );
+#@ISA = qw( Business::OnlinePayment::HTTPS );
+@ISA = qw( Business::OnlinePayment );
my %CC_ERRORS = (
'-1' => 'Invalid length (-1)',
my @records = split(/\r\n/, $page);
- $csv->parse(shift @records) or die $csv->error;
+ $csv->parse(shift @records)
+ or die "CSV parse failed on " . $csv->error_input;
@output{@CHANGE_STATUS_RESPONSE} = $csv->fields();
# we only handle a single record reponse, as that's all this module will
# currently submit...
- $csv->parse(shift @records) or die $csv->error;
+ $csv->parse(shift @records)
+ or die "CSV parse failed on " . $csv->error_input;
@output{@CHANGE_STATUS_RESPONSE_RECORD} = $csv->fields();
return %output;
my @records = split(/\r\n/, $page);
- $csv->parse(shift @records) or die $csv->error;
+ #$csv->parse(shift @records)
+ $csv->parse(shift @records)
+ or die "CSV parse failed on " . $csv->error_input;
@output{@GET_STATUS_RESPONSE} = $csv->fields();
# we only handle a single record reponse, as that's all this module will
# currently submit...
- $csv->parse(shift @records) or die $csv->error;
+ $csv->parse(shift @records)
+ or die "CSV parse failed on " . $csv->error_input;
@output{@GET_STATUS_RESPONSE_RECORD} = $csv->fields();
return %output;