SYNOPSIS
use Business::OnlinePayment;
my $tx = new Business::OnlinePayment("PayConnect",
'partner' => '',
);
$tx->content(
type => 'LEC',
login => 'test', #ClientID
password => 'test',
action => 'Authorization Only',
description => 'Business::OnlinePayment test',
amount => '49.95',
invoice_number => '100100',
name => 'Tofu Beast',
phone => '4155554321',
);
$tx->submit();
if($tx->is_success()) {
print "LEC billing authorized successfully: ".$tx->authorization."\n";
} else {
print "LEC billing was rejected: ".$tx->error_message."\n";
}