view release on metacpan or  search on metacpan

lib/Google/Checkout/General/FlatRateShipping.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 flat rate shipping method which can be used to 
add to merchant checkout flow.

=over 4

=item new SHIPPING_NAME => ..., PRICE => ...

Constructor. Takes a shipping name and a price.

=back

=cut

=head1 COPYRIGHT

Copyright 2006 Google. All rights reserved.

=head1 SEE ALSO

Google::Checkout::General::Shipping

=cut

#--
#--   <flat-rate-shipping></flat-rate-shipping> 
#--

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::FLAT_RATE_SHIPPING);

  return bless $self => $class;
}

1;