Yet Another CPAN Grep

Business-Stripe-Subscription ( B/BO/BOD/Business-Stripe-Subscription-1.0.tar.gz, BOD, 2023; MetaCPAN )

Business-Stripe-Subscription/lib/Business/Stripe/Subscription.pm ( view source; MetaCPAN )

package Business::Stripe::Subscription;

use HTTP::Tiny;
use JSON::PP;
use Data::Dumper;

use strict;
use warnings;

our $VERSION = '1.0';
$VERSION = eval $VERSION;

my $http = HTTP::Tiny-

 $customer, $self->_get_header);
    if ($response->{'success'}) {
        my $payload = decode_json($response->{'content'});
        if ($payload->{'object'} eq 'customer') {
            return $

, $session, $self->_get_header);
    if ($response->{'success'}) {
        my $payload = decode_json($response->{'content'});
        if ($payload->{'object'} eq 'checkout.session') {