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