Revision history for Perl extension Business::OnlinePayment::IPPay.
+0.05 unreleased
+ - add introspection info used in Business::OnlinePayment 3.01+
+
0.04 Tue Jul 22 12:19:54 2008 EDT
- force country and ship country to ISA-3166-alpha-3
use vars qw($VERSION $DEBUG @ISA $me);
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.04';
+$VERSION = '0.05_01';
+$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
+
$DEBUG = 0;
$me = 'Business::OnlinePayment::IPPay';
+sub _info {
+ {
+ 'info_version' => '0.01',
+ 'module_version' => $VERSION,
+ 'supported_types' => [ qw( CC ECHECK ) ],
+ 'supported_actions' => { 'CC' => [
+ 'Normal Authorization',
+ 'Authorization Only',
+ 'Post Authorization',
+ 'Void',
+ 'Credit',
+ ],
+ 'ECHECK' => [
+ 'Normal Authorization',
+ 'Void',
+ 'Credit',
+ ],
+ },
+ 'CC_void_requires_card' => 1,
+ };
+}
+
sub set_defaults {
my $self = shift;
my %opts = @_;
}
1;
+
__END__
=head1 NAME
t/card.t
t/check.t
t/bop.t
+t/introspection.t
META.yml Module meta-data (added by MakeMaker)
--- /dev/null
+#!/usr/bin/perl -w
+
+use Test::More;
+
+eval 'use Business::OnlinePayment 3.01;';
+if ( $@ ) {
+ plan skip_all => 'Business::OnlinePayment 3.01+ not available';
+} else {
+ plan tests => 1;
+}
+
+my($login, $password, @opts) = ('TESTMERCHANT', '',
+ 'default_Origin' => 'RECURRING' );
+
+my $tx = Business::OnlinePayment->new("IPPay", @opts);
+
+ok( $tx->info('CC_void_requires_card') == 1, 'CC_void_requires_card introspection' );