get_cards doesn't work

[srchulo]

!/usr/bin/perl

use Net::Stripe;

my $stripe = Net::Stripe->new(api_key => 'sk_test_fnQCsdfasdsfafdOn3bYasdfgOkqo');

my $c = $stripe->get_customer(customer_id => 'cus_4Gughbst');
my $cards = $stripe->get_cards(customer => $c);

print @$cards;

The above get_cards method will fail. It gives this error:

Expected named arguments but didn't find an even-sized list at /usr/local/share/perl5/MooseX/Method/Signatures/Meta/Method.pm line 401
MooseX::Method::Signatures::Meta::Method::ANON('ARRAY(0x4b47bf0)') called at /usr/local/lib64/perl5/Moose/Meta/TypeCoercion.pm line 68
Moose::Meta::TypeCoercion::ANON('ARRAY(0x4b47bf0)') called at /usr/local/lib64/perl5/Moose/Meta/TypeCoercion.pm line 102
Moose::Meta::TypeCoercion::coerce('MooseX::Meta::TypeCoercion::Structured=HASH(0x4215318)', 'ARRAY(0x4b47bf0)') called at /usr/local/lib64/perl5/Moose/Meta/TypeConstraint.pm line 165
Moose::Meta::TypeConstraint::coerce('MooseX::Meta::TypeConstraint::Structured=HASH(0x4215120)', 'ARRAY(0x4b47bf0)') called at /usr/local/share/perl5/MooseX/Types/TypeDecorator.pm line 173
MooseX::Types::TypeDecorator::_try_delegate('MooseX::Types::TypeDecorator=HASH(0x42117d0)', 'coerce', 'ARRAY(0x4b47bf0)') called at /usr/local/share/perl5/MooseX/Types/TypeDecorator.pm line 138
MooseX::Types::TypeDecorator::AUTOLOAD('MooseX::Types::TypeDecorator=HASH(0x42117d0)', 'ARRAY(0x4b47bf0)') called at /usr/local/share/perl5/MooseX/Meta/TypeConstraint/ForceCoercion.pm line 29
MooseX::Meta::TypeConstraint::ForceCoercion::validate('MooseX::Meta::TypeConstraint::ForceCoercion=HASH(0x42186f8)', 'ARRAY(0x4b47bf0)', 'SCALAR(0x309a138)') called at /usr/local/share/perl5/MooseX/Method/Signatures/Meta/Method.pm line 436
MooseX::Method::Signatures::Meta::Method::validate('MooseX::Method::Signatures::Meta::Method=HASH(0x4b48250)', 'ARRAY(0x4b47bf0)') called at /usr/local/share/perl5/MooseX/Method/Signatures/Meta/Method.pm line 152
Net::Stripe::get_cards('Net::Stripe=HASH(0x19b3b98)', 'customer', 'Net::Stripe::Customer=HASH(0x52caf68)') called at stripe.pl line 14

Also, in the documentation the example has 'list_cards' instead of 'get_cards'

[rustyconover]

Hi,

What version of Net-Stripe are you running. This stack trace seems oldish, because we've switched to Kavorka rather than MooseX::Method::Signatures.

Thanks,

Rusty

[srchulo]

I had to use version .15 because Kavorka requires perl 5.14 or greater, and I don't have that on my servers.

[rustyconover]

There have been quite a few fixes between now and then, and if there was a fix now how would you get it? A manual rebase?

[srchulo]

Yeah, I wasn't really sure if I would do it myself or not. But I figured I'd post this anyway just in case this was still an issue for others.

[srchulo]

When I run it on my mac with Net::Stripe version .18 I still get an error:

Odd number of elements in anonymous hash at /Library/Perl/5.16/Net/Stripe.pm line 200.

[andrewsolomon]

Adam, my understanding is that the specs have changed (having just done an upgrade last night:) so I had to make changes like this:

-  my $customer = $stripe->get_customer($self->stripe_customer_id);
+  my $customer = $stripe->get_customer(customer_id => $self->stripe_customer_id)

Hope that helps!

[caribnow]

Hello, this is still an issue. Any plans to update this and fix the error?

$stripe->get_cards($customer, limit => 20); # seems to work fine, but then get the following error.

Error: invalid_request_error - Unrecognized request URL (GET: /v1/cards). Please see https://stripe.com/docs or we can help at https://support.stripe.com/.

Is this package abandoned?

[pullingshots]

The following patch to Stripe.pm seems to fix the issue.

194c194
<     method get_cards(Net::Stripe::Customer|Str :$customer,
---
>     method get_cards(Net::Stripe::Customer|Str $customer,
203,204c203,204
<         $self->_get_collections("customers/$customer/sources",
<                                 object => 'card',
---
>         $self->_get_collections('cards',
>                                 id => $customer,
596,598d595
<     }
<     if (my $obj = $args{object}) {
<         push @path_args, "object=$obj";

[youradds]

The documentation says "get_cards" still. That threw me off as I was getting an error when using the sample code!

I'm also getting a frustrating error message, and I can't work out why:

my $stripe = Net::Stripe->new(api_key => $CFG->{stripe_mode} eq "test" ? $CFG->{stripe_secret_test} : $CFG->{stripe_secret_live} );
my $cards = $stripe->get_cards(customer => $USER->{stripe_customer_id}, limit => 10);

...gives (and 500 IS Error)

[Mon Apr 10 10:14:07.637117 2017] [:error] [pid 19400] Odd number of elements in anonymous hash at /srv/www/etrust.pro/www/cgi-bin/trust/update-new.cgi line 88.\n

Any ideas? I'm on the latest version of the module

Thanks

Andy

[pullingshots]

Andy, you will need to manually apply the patch I posted to fix this issue.

[youradds]

@pullingshots - I've already tried that, but no joy :( Any other ideas? Is this just an issue with later versions of Perl? It's killing me that I can't get this working :(

[andrewsolomon]

Fixed https://github.com/lukec/stripe-perl/releases/tag/0.32 https://metacpan.org/release/ILLY/Net-Stripe-0.32

Thanks @youradds and @pullingshots for moving this forward.