Hello All,
I am currently messing around with my first Mojolicious application, and am
attempting to get a credit card to process with Stripe using the Net::Stripe
module. It appears that one of the attributes is failing to pass it's
constraint, however I am unsure if the problem lies with my code, Stripe, or
the module.
Here is the code:
#!/usr/bin/env perl
use Mojolicious::Lite;
use Net::Stripe;
my $API_KEY = '<test key here>';
my $stripe = Net::Stripe->new( api_key => $API_KEY, debug => 1 );
helper stripe => sub { $stripe };
get '/' => sub {
my $self = shift;
$self->render('index');
};
get '/mud' => sub {
my $self = shift;
$self->render('mud');
};
post '/payment' => sub {
my $self = shift;
my $token = $self->param('stripeToken');
my $charge = $self->stripe->post_charge(
amount => 699,
currency => 'USD',
card => $token,
description => 'Description Here',
);
};
app->start;
And here is the error that I am receiving when I try to post the transaction:
[Thu Oct 3 12:10:08 2013] [error] Attribute (paid) does not pass the type
constraint because: Validation failed for 'Maybe[Bool]' with value
JSON::PP::Boolean=SCALAR(0x7ffae4ced778) at constructor
Net::Stripe::Charge::new (defined at
/Users/peter/perl5/perlbrew/perls/perl-5.18.1/lib/site_perl/5.18.1/Net/Stripe/Charge.pm
line 48) line 89.
Any help that anyone might be able to provide would be greatly appreciated.
Thanks in advance,
Peter H. Ezetta
Confidentiality Notice: This e-mail may contain proprietary information some of
which may be legally privileged. It is for the intended recipient(s) only. If
you believe that it has been sent to you in error, please notify the sender by
reply e-mail and delete the message. Any disclosure, copying, distribution or
use of this information by someone other than the intended recipient(s) is
prohibited and may be unlawful.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
