The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

WebService::Stripe - Stripe API bindings

VERSION

version 0.0800

SYNOPSIS

    my $stripe = WebService::Stripe->new(
        api_key => 'secret',
        version => '2014-11-05', # optional
    );
    my $customer = $stripe->get_customer('cus_57eDUiS93cycyH');

HEADERS

WebService::Stripe supports passing custom headers to any API request by passing a hash of header values as the optional headers named parameter:

    $stripe->create_charge({ ... }, headers => { stripe_account => "acct_123" })

Note that header names are normalized: foo_bar, Foo-Bar, and foo-bar are equivalent.

Three headers stand out in particular:

Stripe-Version

This indicates the version of the Stripe API to use. If not given, we default to 2014-11-05, which is the earliest version of the Stripe API to support marketplaces.

Stripe-Account

This specifies the ID of the account on whom the request is being made. It orients the Stripe API around that account, which may limit what records or actions are able to be taken. For example, a `get_card` request will fail if given the ID of a card that was not associated with the account.

Idempotency-Key

All POST methods support idempotent requests through setting the value of an Idempotency-Key header. This is useful for preventing a request from being executed twice, e.g. preventing double-charges. If two requests are issued with the same key, only the first results in the creation of a resource; the second returns the latest version of the existing object.

This feature is in ALPHA and subject to change without notice. Contact Stripe to confirm the latest behavior and header name.

METHODS

get_customer

    get_customer($id)

Returns the customer for the given id.

create_customer

    create_customer($data)

Creates a customer. The $data hashref is optional. Returns the customer.

Example:

    $customer = $stripe->create_customer({ email => 'bob@foo.com' });

update_customer

    update_customer($id, $data)

Updates a customer. Returns the updated customer.

Example:

    $customer = $stripe->update_customer($id, { description => 'foo' });

get_customers

    get_customers(query => $query)

Returns a list of customers. The query param is optional.

next

    next($collection)

Returns the next page of results for the given collection.

Example:

    my $customers = $stripe->get_customers;
    ...
    while ($customers = $stripe->next($customers)) {
        ...
    }

create_card

    create_card($data, customer_id => 'cus_123')

get_charge

    get_charge($id)

Returns the charge for the given id.

create_charge

    create_charge($data)

Creates a charge.

capture_charge

    capture_charge($id, data => $data)

Captures the charge with the given id. The data param is optional.

refund_charge

    refund_charge($id, data => $data)

Refunds the charge with the given id. The data param is optional.

get_token

    get_token($id)

create_token

    create_token($data)

get_account

    get_account($id)

create_account

    create_account($data)

update_account

    update_account($id, data => $data)

add_bank

    add_bank($data, account_id => $account_id)

Add a bank to an account.

Example:

    my $account = $stripe->create_account({
        managed => 'true',
        country => 'CA',
    });

    my $bank = $stripe->add_bank(
        {
            'bank_account[country]'        => 'CA',
            'bank_account[currency]'       => 'cad',
            'bank_account[routing_number]' => '00022-001',
            'bank_account[account_number]' => '000123456789',
        },
        account_id => $account->{id},
    );

    # or add a tokenised bank

    my $bank_token = $stripe->create_token({
        'bank_account[country]'        => 'CA',
        'bank_account[currency]'       => 'cad',
        'bank_account[routing_number]' => '00022-001',
        'bank_account[account_number]' => '000123456789',
    });

    $stripe->add_bank(
        { bank_account => $bank_token->{id} },
        account_id => $account->{id},
    );

update_bank

    update_bank($id, account_id => $account_id, data => $data)

create_transfer

    create_transfer($data)

get_transfer

    get_transfer($id)

get_transfers

    get_transfers(query => $query)

update_transfer

    update_transfer($id, data => $data)

cancel_transfer

    cancel_transfer($id)

get_balance

    get_balance()

get_bitcoin_receivers

    get_bitcoin_receivers()

create_bitcoin_receiver

    create_bitcoin_receiver($data)

Example:

    my $receiver = $stripe->create_bitcoin_receiver({
        amount   => 100,
        currency => 'usd',
        email    => 'bob@tilt.com',
    });

get_bitcoin_receiver

    get_bitcoin_receiver($id)

AUTHORS

  • Naveed Massjouni <naveed@vt.edu>

  • Dan Schmidt <danschmidt5189@gmail.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2014 by Tilt, Inc.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.