package Business::OnlinePayment::AuthorizeNet;
-# $Id: AuthorizeNet.pm,v 1.1 2001-09-01 21:47:31 ivan Exp $
+# $Id: AuthorizeNet.pm,v 1.3 2002-02-12 23:27:38 ivan Exp $
use strict;
use Business::OnlinePayment;
use Net::SSLeay qw/make_form post_https/;
-use Text::CSV;
+use Text::CSV_XS;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter;
@ISA = qw(Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
-$VERSION = '3.00';
+$VERSION = '3.01';
sub set_defaults {
my $self = shift;
my $t = $self->path();
my($page,$server_response,%headers) = post_https($s,$p,$t,'',$pd);
- my $csv = new Text::CSV();
+ my $csv = new Text::CSV_XS();
$csv->parse($page);
my @col = $csv->fields();