ccess Picnic Supermarket API
$WWW::Picnic::VERSION = '0.001';
use Moo;
use Carp qw( croak );
use JSON::MaybeXS;
use HTTP::Request;
use LWP::UserAgent;
use Digest::MD5 qw( md5_hex );
has user => (
=> 'ro',
lazy => 1,
default => sub { 'okhttp/3.9.0' },
);
has json => (
is => 'ro',
lazy => 1,
default => sub { return JSON::MaybeXS->new },
);
has _auth_cache => (
is => 'ro',
default
$request->header('Accept' => 'application/json');
$request->header('Content-Type' => 'application/json; charset=UTF-8');
$request->content($self->json->encode({
key => $self->user,