se64 qw(encode_base64);
use URI::Escape qw(uri_escape);
use Scalar::Util qw(reftype blessed);
use JSON ();
use Devel::StackTrace;
use Net::Stripe::Simple::Data;
use Net::Stripe::Simple::Error;
our @equest($req);
}
# implements PHP convention for encoding "dictionaries" (why don't they accept
# json bodies in posts?)
sub _encode_params {
my $args = shift;
my @components;
for my $key $value = # JSON boolean stringification magic has been erased
blessed $value && $value->isa(ref(true())) # hack to work around inheritance issues with JSON booleans
ta;
$Net::Stripe::Simple::Data::VERSION = '0.005';
# ABSTRACT: collection of methods to augment a JSON hash
use v5.10;
use strict;
use warnings;
use Scalar::Util qw(refaddr);
use overload '""' => f =~ /^JSON/) {
return "$v";
} else {
return $v;
}
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Net::Stripe::Simple::Data - collection of methods to augment a JSON hash
# and another
}
);
=head1 DESCRIPTION
L<Net::Stripe::Simple::Data> is simply a L<JSON> hash with a little magic added
to it. Principally, it will autoload any attribute name into an a