Subversion Repositories PEEPS

    $json_body,

    $json_body,

    $headers

    $headers

  );

  );

  my $response = from_json($client->responseContent());

  my $response = from_json($client->responseContent());

  warn '/v2/online-checkout/payment-links/'.$response->{payment_link}->{id};

#  warn '/v2/online-checkout/payment-links/'.$response->{payment_link}->{id};

  $body->{payment_link}->{checkout_options}->{redirect_url} = url ( -base => 1 )."/confirmation?order_id=".$response->{payment_link}->{order_id};

  $body->{payment_link}->{checkout_options}->{redirect_url} = url ( -base => 1 )."/confirmation?order_id=".$response->{payment_link}->{order_id};

  $body->{payment_link}->{version} = $response->{payment_link}->{version};

  $body->{payment_link}->{version} = $response->{payment_link}->{version};

  $json_body = encode_json $body;

  $json_body = encode_json $body;

  $client->PUT(

  $client->PUT(

    $headers

    $headers

  );

  );

  my $response2 = from_json($client->responseContent());

  my $response2 = from_json($client->responseContent());

  warn Dumper($response2);

#  warn Dumper($response2);