@ISA = qw( Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
-$VERSION = '0.01';
+$VERSION = '0.02';
$DEBUG = 0;
my $self = shift;
$self->server('paymentsgateway.net');
$self->port( 5050 );
- $self->build_subs(qw(test_transaction));
}
sub map_fields {
}
my $request = join("\n", map { "$_=". $content{$_} }
- grep { $content{$_} ne '' }
+ grep { defined($content{$_}) && $content{$_} ne '' }
@fields ).
"\nendofdata\n";