The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Google::Checkout::Command::ChargeOrder

SYNOPSIS

  use Google::Checkout::General::GCO;
  use Google::Checkout::Command::ChargeOrder;
  use Google::Checkout::General::Util qw/is_gco_error/;

  my $gco = Google::Checkout::General::GCO->new;

  my $charge_order = Google::Checkout::Command::ChargeOrder->new(
                     order_number => 156310171628413,
                     amount       => 12.34);
  my $response = $gco->command($charge_order);
  die $response if is_gco_error($response);
  print $response,"\n\n";

DESCRIPTION

A sub-class of Google::Checkout::Command::GCOCommand. This module is used to charge an order.

new ORDER_NUMBER => ..., AMOUNT => ...

Constructor. Takes a Google order number and the amount to charge.

get_amount

Returns the amount to charge.

set_amount AMOUNT

Sets the amount to charge.

to_xml

Return the XML that will be sent to Google Checkout. Note that this function should not be used directly. Instead, it's called indirectly by the Google::Checkout::General::GCO object internally.

COPYRIGHT

Copyright 2006 Google. All rights reserved.

SEE ALSO

Google::Checkout::Command::GCOCommand