Bod::Stripe - Simple way to implement payments using Stripe hosted checkout
use Bod::Stripe;
my $stripe = Bod::Stripe->new(
'api-secret' => 'sk_test_00000000000000000000000000',
);
# Note price is in lowest currency unit (i.e pence or cents not pounds or dollars)
$stripe->add_product(
'id' => 1,
'name' => 'My product',
'qty' => 4,
'price' => 250,
);
foreach my $id($stripe->list_products) {
print "$id is " . $stripe->get_product($id)->{'name'} . "\n";
}
$stripe->checkout(
'api-public' => 'pk_test_00000000000000000000000000',
);
A simple to use interface to the Stripe payment gateway utilising the Stripe hosted checkout. The only dependencies are the core modules HTTP::Tiny and JSON::PP.
Bod::Stripe has a Trolley into which products are loaded. Once the Trolley is full of the product(s) in the order, this is passed to the Stripe hosted checkout either using Javascript provided by Stripe (see https://stripe.com/docs/payments/accept-a-payment?integration=checkout), Javascript provided in this document or the checkout utility method that allows a server side script to send the user to Stripe invisibly.
At present Bod::Stripe only handles simple, one-off payments. Manipulation of customers, handling subscriptions and user hosted checkout is not supported. However, this implementation makes payment for a single item or group of items simple to implement.
Stripe provides four API Keys. A Secret and a Publishable (called Public within Bod::Stripe) for both testing and for live transactions. When calling the new method it is necessary to provide the Secret Key. Before calling the checkout method to redirect the user to the Stripe hosted checkout, the Public Key is also required so this is usually provided to the new method.
See https://stripe.com/docs/keys
The basic workflow for Bod::Stripe is to initially create an instance of the module with at minimum the Secret Key. If using a currency other than GBP this should also be set at this time.
my $stripe = Bod::Stripe->new(
'api-public' => 'pk_test_00000000000000000000000000',
'api-secret' => 'sk_test_00000000000000000000000000',
'currency' => 'USD',
);Next, products are assembled in the Trolley. There are methods to add, update, remove and list the products in the Trolley.
$stripe->add_product(
'id' => 1,
'name' => 'My product',
'qty' => 4,
'price' => 250,
);
my @products = $stripe->list_products;Once the Trolley contains all the products, the user is redirected to the Stripe hosted checkout where they pay for the Trolley. Once this happens, Stripe returns to your site using one of the URLs provided delending on whether the payment was successful or not. Where no return URLs are provide, the script URL is used although in practice this is not usually sufficient and return URLs will be needed.
$stripe->checkout;
Examples of other ways of redirecting the user to the Stripe hosted checkout and listed in the Examples section.
Bod::Stripe->new('api-secret' => 'sk_test_00000000000000000000000000');
The constructor method. The Secret Key is required.
The following parameters may be provided:
api-secret - required The Secret Key.
api-public - The Public Key. This would normally be provided to the new method but can be left until sending the user to the Stripe hosted checkout.
success-url
cancel-url - The callback URL that Stripe returns to once the payment transaction has completed either successfully or otherwise. If these are not explicitly included, the current script URL is used. Normally these need setting but can be omitted for testing or if the Stripe payment dashboard is being relied on to confirm successful payments.
currency - The currency to use for the transaction. The default is British Pounds Stirling (GBP).
This should be a 3 letter currency code supported by Stripe (see https://stripe.com/docs/currencies).
reference - The reference to use for the transaction
Defaults to "Bod::Stripe" as this is required by Stripe.
email - If provided, this pre-fills the user's email address in the Stripe hosted checkout. If provided, this is then non editable during checkout.
Returns true is the last method call was successful
Returns the last error message or an empty string if success returned true
Adds a product to the Trolley. Or update the product if an existing id is provided.
A product consists of the following hash entries
id - required A unique ID for the product. This is not passed to Stripe and is only used by Bod::Stripe to identify current products.
If add_product is called with an existing ID, that product is updated.
name - required The name of the product as it will be passed to Stripe.
description - optional A one line decsription of the product as it will be passed to Stripe. This is typically used to specify options such as colour.
qty - required The number of the product to add to the Trolly.
price - required The price of the product in the lowest currency unit. For example - £2.50 would be 250 as it is 250 pence; $10 would be 1000 as it is 1000 cents.
Note that special rules apply to Hungarian Forint (HUF) and Ugandan Shilling (UGX) - see https://stripe.com/docs/currencies
On success, returns the number of products in the Trolley
Delete the product with the specified id
On success, returns the number of products in the Trolley
Returns an array contining the IDs of the products in the Trolley
On success, returns a hash with the product details. Each key of the hash corresponds to items listed for add_product
The following methods all take the following optional parameters. See new for their descriptions.
reference
email
This method will not normally need calling.
Returns the full session intent from Stripe if successful or the Stripe error otherwise.
Returns the intend_id that needs passing to the Stripe hosted checkout if successful or the Stripe error otherwise.
In addition to the parameters listed above, this method also accepts the following optional parameters
public-api - See new
format - The format of the returned information. Current options are JSON or text. The default is text.
Provides the Public Key and Intent Session ID as these are the two pieces of information required by the Javascript provided by Stripe and te Javacsript provided here. If text output is used (the default) the Public Key and Intent Session ID are provided as a colon separated string.
A simple implementation of redirecting the user to the Stripe hosted checkout.
Calling this method provides a fully formed HTML document including the Content-Type header that can be sent to the users browser. The HTML document contains all the Javascript required to sent the user to the Stripe hosted checkout transparently. Unless you are building a checkout with entirely AJAX calls, you will almost certainly want to use this method.
See https://stripe.com/docs/payments/accept-a-payment?integration=checkout
<html>
<head>
<title>Buy cool new product</title>
<script src="https://js.stripe.com/v3/"></script>
</head>
<body>
<button id="checkout-button">Checkout</button>
<script type="text/javascript">
// Create an instance of the Stripe object with your publishable API key
var stripe = Stripe('pk_test_00000000000000000000000000');
var checkoutButton = document.getElementById('checkout-button');
checkoutButton.addEventListener('click', function() {
// Create a new Checkout Session using the server-side endpoint you
// created in step 3.
fetch('https://example.com/cgi-bin/trolley.pl?stripe=getIntent', {
method: 'POST',
})
.then(function(response) {
return response.json();
})
.then(function(session) {
return stripe.redirectToCheckout({ sessionId: session.id });
})
.then(function(result) {
// If `redirectToCheckout` fails due to a browser or network
// error, you should display the localized error message to your
// customer using `error.message`.
if (result.error) {
alert(result.error.message);
}
})
.catch(function(error) {
console.error('Error:', error);
});
});
</script>
</body>
</html> use Bod::Stripe;
use strict;
use CGI;
my $cgi = CGI->new;
if ($cgi->param('stripe') eq 'getIntent') {
my $stripe = Bod::Stripe->new(
'api-public' => 'pk_test_00000000000000000000000000',
'api-secret' => 'sk_test_00000000000000000000000000',
'success-url' => 'https://www.example.com/yippee.html',
'cancel-url' => 'https://www.example.com/ohdear.html',
'reference' => 'My Payment',
);
$stripe->add_product(
'id' => 'test',
'name' => 'Expensive Thingy',
'description' => 'Special edition version',
'qty' => 1,
'price' => 50000,
);
print "Content-Type: text/json\n\n";
print $stripe->get_intent;
}
<html>
<head>
<script src="https://js.stripe.com/v3/"></script>
<script>
var xhr=new XMLHttpRequest();
function checkout() {
xhr.open("POST", "https://www.example.com/cgi-bin/trolley.pl", true);
xhr.onreadystatechange=function() {
if (xhr.readyState == 4 && xhr.status == 200) {
var keys = xhr.response.split(':');
var stripe = Stripe(keys[0]);
var result = stripe.redirectToCheckout({ sessionId: keys[1] });
if (result.error) {
alert(result.error.message);
}
}
xhr.send("stripe=getKeys");
}
</head>
<body>
<input type="button" value="Buy Now!" onClick="checkout();">
</body>
</html>
use Bod::Stripe;
use strict;
use CGI;
my $cgi = CGI->new;
if ($cgi->param('stripe') eq 'getKeys') {
my $stripe = Bod::Stripe->new(
'api-public' => 'pk_test_00000000000000000000000000',
'api-secret' => 'sk_test_00000000000000000000000000',
'success-url' => 'https://www.example.com/yippee.html',
'cancel-url' => 'https://www.example.com/ohdear.html',
'reference' => 'My Payment',
);
$stripe->add_product(
'id' => 'test',
'name' => 'Expensive Thingy',
'description' => 'Special edition version',
'qty' => 1,
'price' => 50000,
);
print "Content-Type: text/text\n\n";
print $stripe->get_ids;
}
<html>
<head>
<title>Simple Checkout</title>
</head>
<body>
<form method="post" action="https://www.example.com/cgi-bin/trolley.pl">
<input type="hidden" name="stripe" action="checkout">
<label for="qty">How many do you want?</label>
<input type="number" name="qty" min="1" name="qty">
<input type="submit" value="Buy Now!">
</form>
</body>
</html>
use Bod::Stripe;
use strict;
use CGI;
my $cgi = CGI->new;
if ($cgi->param('stripe') eq 'checkout') {
my $stripe = Bod::Stripe->new(
'api-public' => 'pk_test_00000000000000000000000000',
'api-secret' => 'sk_test_00000000000000000000000000',
'success-url' => 'https://www.example.com/yippee.html',
'cancel-url' => 'https://www.example.com/ohdear.html',
'reference' => 'My Payment',
);
$stripe->add_product(
'id' => 'test',
'name' => 'Expensive Thingy',
'description' => 'Special edition version',
'qty' => $cgi->param('qty'),
'price' => 50000,
);
if ($stripe->success) {
print $stripe->checkout;
} else {
# handle errors...
}
}This last example prints out a fully formed HTML to the browser complete with Content-Type header. If other headers are required, such as Set-Cookie headers, they can be included immediately before printing calling checkout.
Net::Stripe, Net::Stripe::Simple, Business::Stripe
Ian Boddison <ian@boddison.com>
This software is copyright (c) 2021 by Ian Boddison.
All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.