@ISA = qw(Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
-$VERSION = '0.01';
+$VERSION = '0.02';
$DEBUG = 0;
croak "$type not (yet) supported";
}
- ( my $exp = $content{'expiration'} ) =~ s/\///;
+ $content{'expiration'} =~ /^(\d+)\/(\d+)$/;
+ my($m, $y) = ($1, $2);
+ $m = $m+0;
+ $m = "0$m" if $m<10;
+ my $exp = "$m$y";
$self->revmap_fields(
'M_id' => 'login',