![]() |
![]()
| ![]() |
![]()
NAMEGoogle::Checkout::General::GiftCertificate SYNOPSISuse Google::Checkout::General::GCO; use Google::Checkout::General::GiftCertificate; use Google::Checkout::General::MerchantCalculations; 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 $gift_certificate = Google::Checkout::General::GiftCertificate->new( accepted => 1, name => 'My company', pin => 123456789); my $merchant_calculation = Google::Checkout::General::MerchantCalculations->new( url => 'http://callback/url', certificates => $gift_certificate); my $checkout_flow = Google::Checkout::General::MerchantCheckoutFlow->new( edit_cart_url => "http://edit/cart/url", continue_shopping_url => "http://continue/shopping/url", 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"; DESCRIPTIONSupport gift certificates.
COPYRIGHTCopyright 2006 Google. All rights reserved.
|