projects
/
Business-OnlinePayment-AuthorizeNet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ba95dc2
)
s/CSV/CSV_XS/g
author
ivan
<ivan>
Tue, 12 Feb 2002 23:27:38 +0000
(23:27 +0000)
committer
ivan
<ivan>
Tue, 12 Feb 2002 23:27:38 +0000
(23:27 +0000)
AuthorizeNet.pm
patch
|
blob
|
history
diff --git
a/AuthorizeNet.pm
b/AuthorizeNet.pm
index
00c8962
..
c48808e
100644
(file)
--- a/
AuthorizeNet.pm
+++ b/
AuthorizeNet.pm
@@
-1,11
+1,11
@@
package Business::OnlinePayment::AuthorizeNet;
package Business::OnlinePayment::AuthorizeNet;
-# $Id: AuthorizeNet.pm,v 1.
2 2001-11-14 21:44:07
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 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;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter;
@@
-132,7
+132,7
@@
sub submit {
my $t = $self->path();
my($page,$server_response,%headers) = post_https($s,$p,$t,'',$pd);
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();
$csv->parse($page);
my @col = $csv->fields();