use Text::CSV_XS;
use vars qw( @ISA $VERSION $DEBUG );
-$VERSION = "0.2";
+$VERSION = "0.5";
$DEBUG = 0;
@ISA = qw( Business::OnlinePayment::HTTPS );
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;