Google-Checkout
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Google/Checkout/General/Pickup.pm view on Meta::CPAN
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";
=head1 DESCRIPTION
Sub-class of C<Google::Checkout::General::Shipping>. Create pick-up
shipping method which can be used to add to merchant checkout flow.
=over 4
=item new SHIPPING_NAME => ...
Constructor. Takes the shipping name as argument.
=back
=cut
=head1 COPYRIGHT
Copyright 2006 Google. All rights reserved.
=head1 SEE ALSO
Google::Checkout::General::Shipping
=cut
#--
#-- <pickup> ... </pickup>
#--
use strict;
use warnings;
use Google::Checkout::XML::Constants;
use Google::Checkout::General::Shipping;
our @ISA = qw/Google::Checkout::General::Shipping/;
sub new
{
my ($class, %args) = @_;
my $self = $class->SUPER::new(
%args,
name => Google::Checkout::XML::Constants::PICKUP,
price => defined $args{price} ? $args{price} : 0);
return bless $self => $class;
}
1;
view all matches for this distributionview release on metacpan - search on metacpan
( run in 3.220 seconds using v1.00-cache-2.02-grep-82fe00e-cpan-f5108d614456 )