| Subject: | Documentation update |
I just used this module for the first time and came across two challenges that could have easily
been avoided with a minor documentation correction. If you updated the Synopsis in your POD
to the attached script, I think new users would have greater success with your module. Thanks
for your time.
| Subject: | PaymenTech.pl |
#!/opt/local/bin/perl
use strict;
use warnings FATAL => 'all';
use Business::OnlinePayment::PaymenTech;
my $trans = new Business::OnlinePayment('PaymenTech',
merchant_id => '000111222333',
terminal_id => '001',
currency => 'USD', # CAD, MXN
);
$trans->content(
login => 'login', # OrbitalConnectionUsername
password => 'password', # OrbitalConnectionPassword
type => 'CC',
card_number => '5454545454545454',
expiration => '0112',
address => '123 Test Street',
city => 'Test City',
zip => 25541,
action => 'Normal Authorization',
amount => 2500,
);
$trans->test_transaction(1); # if submitting to test server
$trans->submit;
if ($trans->is_success) {
print "Approved: ".$trans->authorization;
print "Order Number: ".$trans->order_number;
}
else {
print "Failed: ".$trans->error_message;
}