view release on metacpan or  search on metacpan

lib/Amazon/MWS/Routines.pm  view on Meta::CPAN

    $hash->{$key} = $val;
}

sub sign_request {
    my ($self, $request, %form) = @_;

    my $uri = $request->uri;
    my %params = ($request->method eq 'GET' ) ? $uri->query_form : %form;

    my $canonical = join '&', map {
        my $param = uri_escape($_);
        my $value = uri_escape($params{$_});
        "$param=$value";
    } sort keys %params;

    my $path = $uri->path || '/';
    my $string = $request->method . "\n"
	. $uri->authority . "\n"
        . $path . "\n"
        . $canonical;

    $params{Signature} = Digest::SHA::hmac_sha256_base64($string, $self->{secret_key});

t/product-filtering.t  view on Meta::CPAN

$uploader = Amazon::MWS::Uploader->new(%constructor);

ok($uploader->product_needs_upload(1234 => '2014-11-11'));

ok(scalar(@{ $uploader->products_to_upload }), "Found the product to upload");

eval { Amazon::MWS::XML::Product->new(sku => '1234',
                                      price => '10',
                                      ean => '4444123412343',
                                      images => [ "http://test.org/hello there.jpg" ]) };
ok $@, "unescaped url found:" . $@;

eval { Amazon::MWS::XML::Product->new(sku => '1234',
                                      price => '10',
                                      ean => '4444123412343',
                                      images => [ "http://test.org/hello%20there.jpg" ]) };
ok (!$@, "Escaped url are fine")