diff options
author | fbriere <fbriere> | 2006-08-19 17:39:13 +0000 |
---|---|---|
committer | fbriere <fbriere> | 2006-08-19 17:39:13 +0000 |
commit | 980d429a92740e97ca84e1fa9fb951284160c820 (patch) | |
tree | a89e2c3bcb40b1cfbaea39fa6d043912a1fb6e67 | |
parent | d3c665aa8eadcd5284daf8f8c9b7525ed6bbc542 (diff) |
Renamed exp_date to expiration
-rwxr-xr-x | InternetSecure.pm | 8 | ||||
-rwxr-xr-x | t/20emit.t | 6 | ||||
-rwxr-xr-x | t/40live.t | 2 | ||||
-rwxr-xr-x | t/50idempotence.t | 2 |
4 files changed, 9 insertions, 9 deletions
diff --git a/InternetSecure.pm b/InternetSecure.pm index 4f0e3db..c41e3ce 100755 --- a/InternetSecure.pm +++ b/InternetSecure.pm @@ -135,7 +135,7 @@ sub to_xml { my %content = $self->content; - $self->required_fields(qw(action card_number exp_date)); + $self->required_fields(qw(action card_number expiration)); croak "Unsupported transaction type: $content{type}" if $content{type} && @@ -178,7 +178,7 @@ sub to_xml { $data{xxxCard_Number} =~ tr/- //d; $data{xxxCard_Number} =~ s/^[^3-6]/4/ if $self->test_transaction; - my ($y, $m) = $self->parse_expdate($content{exp_date}); + my ($y, $m) = $self->parse_expdate($content{expiration}); $data{xxxCCYear} = sprintf '%.4u' => $y; $data{xxxCCMonth} = sprintf '%.2u' => $m; @@ -347,7 +347,7 @@ Business::OnlinePayment::InternetSecure - InternetSecure backend for Business::O type => 'Visa', # Optional card_number => '4111 1111 1111 1111', - exp_date => '2004-07', + expiration => '2004-07', cvv2 => '000', # Optional name => "Fr\x{e9}d\x{e9}ric Bri\x{e8}re", @@ -431,7 +431,7 @@ Transaction type, being one of the following: Credit card number. Spaces and dashes are automatically removed. -=item exp_date (required) +=item expiration (required) Credit card expiration date. Since C<Business::OnlinePayment> does not specify any syntax, this module is rather lax regarding what it will accept. The @@ -17,7 +17,7 @@ use constant TRANSACTIONS => ( type => 'Visa', card_number => '4111 1111 1111 1111', - exp_date => '2004-07', + expiration => '2004-07', cvv2 => '000', name => "Fr\N{LATIN SMALL LETTER E WITH ACUTE}d\N{LATIN SMALL LETTER E WITH ACUTE}ric Bri\N{LATIN SMALL LETTER E WITH GRAVE}re", @@ -59,7 +59,7 @@ use constant TRANSACTIONS => ( action => 'Normal Authorization', card_number => '5111-1111-1111-1111', - exp_date => '7/2004', + expiration => '7/2004', name => "\x{201c}Fr\x{e9}d\x{e9}ric Bri\x{e8}re\x{201d}", @@ -74,7 +74,7 @@ use constant TRANSACTIONS => ( action => 'Normal Authorization', card_number => '5111-1111-1111-1111', - exp_date => '0704', + expiration => '0704', name => "Fr\x{e9}d\x{e9}ric Bri\x{e8}re", @@ -22,7 +22,7 @@ $txn->content( type => 'Visa', card_number => '0000000000000000', - exp_date => '2004/07', + expiration => '2004/07', name => "Fr\x{e9}d\x{e9}ric Bri\x{e8}re", address => '123 Nowhere', diff --git a/t/50idempotence.t b/t/50idempotence.t index a387e57..db78133 100755 --- a/t/50idempotence.t +++ b/t/50idempotence.t @@ -12,7 +12,7 @@ use constant TRANSACTION => action => 'Normal Authorization', card_number => '5111-1111-1111-1111', - exp_date => '0704', + expiration => '0704', name => "Fr\x{e9}d\x{e9}ric Bri\x{e8}re", |