Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Net::Stripe, Moose bug?

by Corion (Patriarch)
on Apr 12, 2017 at 13:45 UTC ( [id://1187760]=note: print w/replies, xml ) Need Help??


in reply to Net::Stripe, Moose bug?

Your code doesn't have 35 lines.

Even without installing Net::Stripe, I don't get an error or warning when compiling your code if I comment out use Net::Stripe.

Please post the real code you are using and ideally, as a command line program since CGI is hopefully not involved here.

Replies are listed 'Best First'.
Re^2: Net::Stripe, Moose bug?
by ultranerds (Hermit) on Apr 12, 2017 at 13:51 UTC
    Hi,

    Sorry, here is the full code:

    #!/usr/bin/perl -w # ================================================================== # Test script for Stripe payments use strict; use lib '/srv/www/site.pro/www/cgi-bin/trust/admin'; use Links qw/$USER $IN $DB $CFG/; use CGI::Carp qw(fatalsToBrowser); use Links::SiteHTML; use LWP::Simple; use POSIX qw(ceil); use JSON; Links::init('/srv/www/site.pro/www/cgi-bin/trust/admin'); my $key = $CFG->{stripe_mode} eq "test" ? $CFG->{stripe_secret_test} : + $CFG->{stripe_secret_live}; print "KEY: $key ($CFG->{stripe_mode}) \n"; use Digest::MD5 qw(md5_hex); use Net::Stripe; my $stripe = Net::Stripe->new( api_key => $CFG->{stripe_mode} eq "test" ? $CFG->{stripe_secre +t_test} : $CFG->{stripe_secret_live}, debug => '1', debug_network => '1' ); print $IN->header; use Data::Dumper; print STDERR Dumper(customer => $USER->{stripe_customer_id}, limit + => 10); my $cards = $stripe->get_cards(customer => 'cus_ALXYaoa9Lpo4Gs', l +imit => 10); print $IN->header; use Data::Dumper; print Dumper($cards);


    Line 35 is:

      my $cards = $stripe->get_cards(customer => 'cus_ALXYaoa9Lpo4Gs', limit => 10);

    Thanks!

    Andy

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1187760]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others lurking in the Monastery: (7)
As of 2024-03-28 12:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found