view release on metacpan or  search on metacpan

OpenECHO.pm  view on Meta::CPAN

226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
    #get from new() args instead# payee             => 'ec_payee',
    check_number      => 'ec_serial_number',
 
    #recurring_billing => 'cnp_recurring',
);
 
#XXX hosted order_type?
$self->{_content}{order_type} = 'S';
 
#XXX counter field shouldn't be just a random integer (but it does need a
#default this way i guess...
$self->{_content}{counter} = int(rand(2**31));
 
if ( $self->transaction_type =~ /^[EA][VS]$/ ) {
  #ccexp_month & ccexp_year
  $self->{_content}{'expiration'} =~ /^(\d+)\D+\d*(\d{2})$/
    or croak "unparsable expiration ". $self->{_content}{expiration};
  my( $month, $year ) = ( $1, $2 );
  $month = '0'. $month if $month =~ /^\d$/;
  $self->{_content}{ccexp_month} = $month;
  $self->{_content}{ccexp_year} = $year;