diff options
Diffstat (limited to 'IPPay.pm')
-rw-r--r-- | IPPay.pm | 27 |
1 files changed, 26 insertions, 1 deletions
@@ -11,10 +11,34 @@ use Business::OnlinePayment::HTTPS; 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 = @_; @@ -397,6 +421,7 @@ sub _xmlwrite { } 1; + __END__ =head1 NAME |