Revision history for Perl extension Business::OnlinePayment::StGeorge.
+0.02 unreleased
+ - Only call init_client and free_client once, fixes multiple
+ transactions
+
0.01 Sat Jan 31 02:43:20 PST 2004
- original version; created by ivan 1.0
use Business::OnlinePayment;
@ISA = qw(Business::OnlinePayment);
-$VERSION = '0.01';
+$VERSION = '0.02';
use webpayperl; #webpayperl.pm from St.George
+webpayperl::init_client or croak "St.George initialization failed\n";
sub set_defaults {
my $self = shift;
# 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");
);
webpayperl::cleanup( $webpayRef );
- webpayperl::free_client();
return;
}
}
webpayperl::cleanup( $webpayRef );
- webpayperl::free_client();
}
+END {
+ webpayperl::free_client();
+}
+
1;
__END__