|
NAMEGoogle::Checkout::General::GiftCertificate SYNOPSIS use 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.
|