Perl Stripe: Retrieve a Coupon

Back to Index

Retrieves the coupon with the given ID.

Documentation: https://stripe.com/docs/api/curl#retrieve_coupon

CURL Command

curl https://api.stripe.com/v1/coupons/25OFF \
   -u STRIPE_SECRET_KEY:

Perl Example

use chilkat();

$rest = chilkat::CkRest->new();

#  URL: https://api.stripe.com/v1/coupons/25OFF
$bTls = 1;
$port = 443;
$bAutoReconnect = 1;
$success = $rest->Connect("api.stripe.com",$port,$bTls,$bAutoReconnect);
if ($success != 1) {
    print "ConnectFailReason: " . $rest->get_ConnectFailReason() . "\r\n";
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$rest->SetAuthBasic("STRIPE_SECRET_KEY","");

$sbResponseBody = chilkat::CkStringBuilder->new();
$success = $rest->FullRequestNoBodySb("GET","/v1/coupons/25OFF",$sbResponseBody);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$jsonResponse = chilkat::CkJsonObject->new();
$jsonResponse->LoadSb($sbResponseBody);

$id = $jsonResponse->stringOf("id");
$object = $jsonResponse->stringOf("object");
$amount_off = $jsonResponse->IsNullOf("amount_off");
$created = $jsonResponse->IntOf("created");
$currency = $jsonResponse->IsNullOf("currency");
$duration = $jsonResponse->stringOf("duration");
$duration_in_months = $jsonResponse->IntOf("duration_in_months");
$livemode = $jsonResponse->BoolOf("livemode");
$max_redemptions = $jsonResponse->IsNullOf("max_redemptions");
$percent_off = $jsonResponse->IntOf("percent_off");
$redeem_by = $jsonResponse->IsNullOf("redeem_by");
$times_redeemed = $jsonResponse->IntOf("times_redeemed");
$valid = $jsonResponse->BoolOf("valid");

Sample JSON Response Body

{
  "id": "25OFF",
  "object": "coupon",
  "amount_off": null,
  "created": 1516662783,
  "currency": null,
  "duration": "repeating",
  "duration_in_months": 3,
  "livemode": false,
  "max_redemptions": null,
  "metadata": {},
  "percent_off": 25,
  "redeem_by": null,
  "times_redeemed": 0,
  "valid": true
}