projects
/
Business-OnlinePayment-StGeorge.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add webpayperl to PREREQ_PM
[Business-OnlinePayment-StGeorge.git]
/
StGeorge.pm
diff --git
a/StGeorge.pm
b/StGeorge.pm
index
cea459c
..
cd172ba
100644
(file)
--- a/
StGeorge.pm
+++ b/
StGeorge.pm
@@
-6,9
+6,10
@@
use Carp qw(croak);
use Business::OnlinePayment;
@ISA = qw(Business::OnlinePayment);
use Business::OnlinePayment;
@ISA = qw(Business::OnlinePayment);
-$VERSION = '0.0
1
';
+$VERSION = '0.0
3
';
use webpayperl; #webpayperl.pm from St.George
use webpayperl; #webpayperl.pm from St.George
+webpayperl::init_client or croak "St.George initialization failed\n";
sub set_defaults {
my $self = shift;
sub set_defaults {
my $self = shift;
@@
-164,10
+165,6
@@
sub submit {
# if ( $DEBUG ) { warn "$_ => $post{$_}\n" foreach keys %post; }
# if ( $DEBUG ) { warn "$_ => $post{$_}\n" foreach keys %post; }
- webpayperl::init_client or croak "St.George initialization failed\n";
- #dd this to all exit places after here
- #webpayperl::cleanup( $webpayRef );
-
my $webpayRef = webpayperl::newBundle;
webpayperl::addVersionInfo($webpayRef);
webpayperl::put($webpayRef, "DEBUG", "OFF");
my $webpayRef = webpayperl::newBundle;
webpayperl::addVersionInfo($webpayRef);
webpayperl::put($webpayRef, "DEBUG", "OFF");
@@
-194,7
+191,6
@@
sub submit {
);
webpayperl::cleanup( $webpayRef );
);
webpayperl::cleanup( $webpayRef );
- webpayperl::free_client();
return;
}
return;
}
@@
-216,10
+212,13
@@
sub submit {
}
webpayperl::cleanup( $webpayRef );
}
webpayperl::cleanup( $webpayRef );
- webpayperl::free_client();
}
}
+END {
+ webpayperl::free_client();
+}
+
1;
__END__
1;
__END__