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