() but got \"$check_ref\" instead." }) ) if( !$self->_is_hash( $check_ref ) );
## This is the json decoded payload
my $payload = $check_ref->{payload} || return( $self->reply({ code => Apache2
"Malformed json error" }) );
}
## Don't wait, reply ok back to Stripe so our request does not time out
$self->response->code( Apache2::Const::HTTP_OK );
## the \1 is for JSON encoder t
o transform a perl true value into a JSON 'true' one
my $json = $self->json->utf8->encode({ code => 200, success => \1 });
$self->response->print( $json );
$self->response->rflush;
$se