Business::Stripe - Interface for Stripe payment system.
my $stripe = Business::Stripe->new( -api_key => 'c6EiNIusHip8x5hkdIjtur7KNUA3TTpE' ); $stripe->charges_create( amount => 400, card => 'tok_5EuIyKyCTc0f2V', description => 'Ice cream' ) and return $stripe->success; print $stripe->error->{message}, "\n";
Provides common bindings for Stripe payment system. Any API calls that do not have bindings can be access through the generic api method.
api
Requires -api_key given to you as part of your Stripe account. Optional -url can override default:
-api_key
-url
https://api.stripe.com/v1/
Generic function that sends requests to Stripe. Check Stripe API Reference https://stripe.com/docs/api for specific calls.
Assuming you're not using Stripe.js to generate a token given the card information, you can do that using this call:
my $token = $stripe->api('post', 'tokens', 'card[number]' => '4242424242424242', 'card[exp_month]' => 12, 'card[exp_year]' => 2012, 'card[cvc]' => 123, 'currency' => 'usd' );
Let's create a new plan to subscribe the customer to:
$stripe->api('post', 'plans', amount => 500, id => 'cone', currency => 'usd', interval => 'month', name => 'The cone plan' );
Now, let's create a customer object with the above token and subscribe the customer to our monthly $5 ice cream cone plan:
customer
cone
my $customer = $stripe->api('post', 'customers', card => $token, email => 'paul@example.com', description => 'Ice creamer', plan => 'cone' );
Customer wants to cancel the subscription:
$stripe->api('delete', "customers/$customer/subscription");
One of post, get, or delete.
post
get
delete
Either charges, events, invoices, events/{ID}, etc. Check API doc for complete list.
charges
events
invoices
events/{ID}
This optional set of parameters can be a single element or a list of key/value pairs.
All actions can be performed by using only this method. The two set of functions charges and customers provided in this package are made available for functions that are used frequently in common implementations.
customers
Method returns 0 when encounter error conditions. The JSON object returned by Stripe can be retrieved via this method.
0
print $stripe->error->{message}, "\n";
When calls are successful a positive value is returned or if possible, the ID. Stripe's JSON object can be retrieved via this method. Specific values are defined in the Stripe API Documentation.
print $stripe->success->{data}->[0]->{description}, "\n";
Set of methods that handle credit/debit card such as charging a card, refund, retrieve specifc charge and list charges.
Charge the credit card.
Assumes currency in usd. Uses token from Stripe.js.
usd
$stripe->charges( amount => 10, card => 'tok_Wzm6ewTBrkVvC3', description => 'customer@example.com' );
Positive integer larger than 50 (amount is specified in cents).
50
3-letter ISO code. Defaults to usd (it's the only one supported).
Required if not using card below. The ID of an exisiting customer.
card
ID
Required if not using customer above. Uses Token acquired from Stripe.js or give it the card details.
Descriptive text identifying the charge (recommend using customer's email).
Returns the id if success (check success for JSON object). If error (use error for JSON object) returns 0.
id
success
error
Takes the charge id value and yields data about the charge.
$stripe->charges_retrieve('ch_uxLBSIZB8azrSr');
Refund a specific amount (or if omitted, full refund) to the charge id. amount is in cents.
amount
### refunds full amount $stripe->charges_refund('ch_uxLBSIZB8azrSr'); ### refunds $5 over charge $stripe->charges_refund('ch_uxLBSIZB8azrSr', 500);
List all the charges for a particular customer or list everything.
### lists next 5 charges $stripe->charges_list(count => 5, offset => 1);
Optional number of records to return. Defaults to 10.
10
Optional paging marker. Defaults to 0.
Optional customer's ID for filtering.
### list top 10 charges for this customer $stripe->charges_list(customer => 'cus_gpj0mzwbQKBI7c');
Multiple charges associated to a customer. By creating a customer, you don't have to ask for credit card information every charge.
Creates a new customer according to the credit card information or token given. Use this method to create a customer-ID for the given card (token when used in conjunction with Stripe.js). The customer-ID can be passed to charges_create's customer parameter instead of card so that you don't have to ask for credit card info again.
charges_create
### creates the customer my $cid = $stripe->customers_create( card => 'tok_Wzm6ewTBrkVvC3', email => 'customer@example.com', description => 'userid-123456' ); ### charges the customer $5 $cid and $stripe->charges_create( customer => $cid, amount => 500, description => 'userid-123456 paid $5' );
Can either be a token or credit card info.
Optional discount coupon code discount.
Optional customer's email.
Optional description.
Returns customer's ID if successful.
Gets the customer's object.
$stripe->customers_retrieve('cus_gpj0mzwbQKBI7c');
Updates customer's information.
$stripe->customers_update('cus_gpj0mzwbQKBI7c', card => 'tok_Wzm6ewTBrkVvC3', description => 'new card' );
Deletes the customer.
$stripe->customers_delete('cus_gpj0mzwbQKBI7c');
List all customers.
$stripe->customers_list(count => 20);
Subscribes a customer to a specified plan:
$stripe->customers_subscribe('cus_YrUZejr9oojQjs', plan => 'basic', prorate => 'false' );
Assuming basic is a plan already created in your Stripe account. If the customer already subscribed to a plan, this will change the plan to this new one.
basic
Unsubscribe the customer from the plan that customer is subscribing to.
$stripe->customers_unsubscribe('cus_YrUZejr9oojQjs', at_period_end => 'true' );
Helper function takes in a resource, defined by the Stripe API doc. Current resources:
charges coupons customers invoices invoiceitems plans tokens events
Stripe.js Documentation https://stripe.com/docs/stripe.js.
Stripe Full API Reference https://stripe.com/docs/api.
Full featured implementation by Luke Closs Net::Stripe.
This module is implemented as a single-file package. If you don't want to use the CPAN distribution, you can download Stripe.pm from the root directory and renamed it to BusinessStripe.pm:
Stripe.pm
BusinessStripe.pm
mv Stripe.pm BusinessStripe.pm
Edit BusinessStripe.pm and remove the :: between the package name on the first line to:
::
package BusinessStripe;
Include the file in your program:
use BusinessStripe; my $stripe = BusinessStripe->new( -api_key => 'c6EiNIusHip8x5hkdIjtur7KNUA3TTpE' ); $stripe->charges_list;
v0.01 Initial release
v0.02 Revised documentations, add README so tests won't fail.
v0.03 Update docs with better examples. Adds customers_subscribe and customers_unsubscribe.
customers_subscribe
customers_unsubscribe
Paul Pham (@phamnp)
Copyright (C) 2012 Aquaron. All Rights Reserved.
This program and library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
2 POD Errors
The following errors were encountered while parsing the POD:
Expected text after =item, not a number
To install Business::Stripe, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Business::Stripe
CPAN shell
perl -MCPAN -e shell install Business::Stripe
For more information on module installation, please visit the detailed CPAN module installation guide.