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

NAME

Google::Checkout::General::Pickup

SYNOPSIS

  use Google::Checkout::General::GCO;
  use Google::Checkout::General::Pickup;
  use Google::Checkout::General::MerchantCheckoutFlow;
  use Google::Checkout::General::ShoppingCart;
  use Google::Checkout::General::Util qw/is_gco_error/;

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

  my $pick_up_shipping = Google::Checkout::General::PickupShipping->new(
                         shipping_name => "Pickup");

  my $checkout_flow = Google::Checkout::General::MerchantCheckoutFlow->new(
                      shipping_method       => [$pick_up_shipping],
                      edit_cart_url         => "http://edit/cart/url",
                      continue_shopping_url => "http://continue/shopping/url",
                      buyer_phone           => "1-111-111-1111",
                      tax_table             => [$table1, $table2],
                      merchant_calculation  => $merchant_calculation);

  my $cart = Google::Checkout::General::ShoppingCart->new(
             expiration    => "+1 month",
             private       => "Private data",
             checkout_flow => $checkout_flow);

  $cart->add_item($item1);
  $cart->add_item($item2);

  my $response = $gco->checkout($cart);

  die $response if is_gco_error($response);

  #--
  #-- redirect URL
  #--
  print $response,"\n";

DESCRIPTION

Sub-class of Google::Checkout::General::Shipping. Create pick-up shipping method which can be used to add to merchant checkout flow.

new SHIPPING_NAME => ...

Constructor. Takes the shipping name as argument.

COPYRIGHT

Copyright 2006 Google. All rights reserved.

SEE ALSO

Google::Checkout::General::Shipping