Yet Another CPAN Grep

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

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

package Business::Stripe::Webhook;

use JSON::PP;
use Digest::SHA qw(hmac_sha256_hex);
use Time::Piece;
use HTTP::Tiny;

use strict;
use warnings;

our $VERSION = '1.12';
$VERSION = eval $V

lse',
    };
    
    if (exists $vars{'payload'}) {
        $vars{'webhook'} = eval { decode_json($vars{'payload'});};
        $vars{'error'}   = 'Missing payload data' unless $vars{'webhook'};

    read(STDIN, $vars{'payload'}, $ENV{'CONTENT_LENGTH'});
            $vars{'webhook'} = decode_json($vars{'payload'}) if $vars{'payload'};
            $vars{'error'}   = 'No payload data' unless $