CPAN::Groonga

mat = shift;
  my %mime_types = ( XML => 'application/xml', JSON => 'application/json', );
  return $mime_types{$format} || $mime_types{JSON};
}

=head1 SYNOPSIS

    use VendorAPI::2Checkout::Client;

 and detail_coupon(), list_payments(),
list_options(), list_products().

Return data is in XML or JSON.

Please refer to L<2Checkout's Back Office Admin API Documentation|http://www.2checkout.com/docu

me && $password) {
      return undef;
   }

   unless ( defined $format && $format =~ qr/^(?:XML|JSON)$/) {
      return undef;
   }

   $class = 'VendorAPI::2Checkout::Client::';
   if (defined $use

 and detail_coupon(), list_payments(),
list_options(), list_products().

Return data is in XML or JSON.

Please refer to L<2Checkout's Back Office Admin API Documentation|http://www.2checkout.com/docu

me && $password) {
      return undef;
   }

   unless ( defined $accept && $accept =~ qr/^(?:XML|JSON)$/) {
      $accept = 'XML';
   }

   my $self = bless {}, $class;
   my $ua = LWP::UserAgent->ne

                  };
sub _netloc   { 'www.2checkout.com:443'         };

enum 'Format' => qw( XML JSON );

class_type 'LPW::UserAGent';

has ua => (
   is => 'ro',
   isa => 'LWP::UserAgent',
   lazy