+0.04 unreleased
+ - haha oops, 0.01 tarball had 0.3 $VERSION
+ - depend on B:OP v3
+
0.01 Mon Dec 27 03:00:58 2004
- original version; created by ivan 1.0
'AUTHOR' => 'Ivan Kohler <ivan-securehostingupg@420.am>',
#'NORECURS' => 1, # dont descend into subdirectories
'PREREQ_PM' => {
- 'Business::OnlinePayment' => 0,
+ 'Business::OnlinePayment' => 3,
# for HTTPS (maybe it should be a separate dist?)
'URI::Escape' => 0,
use vars qw($VERSION $DEBUG @ISA);\r
\r
@ISA = qw(Business::OnlinePayment::HTTPS);\r
-$VERSION = '0.03';\r
+$VERSION = '0.04';\r
$DEBUG = 0;\r
\r
sub set_defaults {\r
\r
#cardstartmonth & cardstartyear\r
$self->{_content}{'card_start'} =~ /^(\d+)\D+\d*(\d{2})$/\r
- or croak "unparsable card_start ". $self->{_content}{expiration};\r
+ or croak "unparsable card_start ". $self->{_content}{card_start};\r
my( $smonth, $syear ) = ( $1, $2 );\r
$smonth = '0'. $smonth if $smonth =~ /^\d$/;\r
$self->{_content}{cardstartmonth} = $smonth;\r