Re: Net::Stripe, Moose bug?

You seem to be on the right track, but someone has already got further: Pull Request to fix get_cards.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Comment on Re: Net::Stripe, Moose bug? Download Code

Replies are listed 'Best First'.
Re^2: Net::Stripe, Moose bug? by ultranerds (Hermit) on Apr 12, 2017 at 13:55 UTC
Thanks. Thats actually a fix I've already applied :( https://github.com/lukec/stripe-perl/issues/33 This fix already exists in the Stripe.pm version I'm using: `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";` [download] Cheers Andy	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Net::Stripe, Moose bug?
by ultranerds (Hermit) on Apr 12, 2017 at 13:55 UTC

https://github.com/lukec/stripe-perl/issues/33

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";
[download]

[reply]
[d/l]