e32 qw( RFC );
use MIME::Base64;
use Digest::SHA qw( sha1 hmac_sha256 );
use Crypt::Rijndael;
use JSON;
use LWP::UserAgent;
use Storable;
our $VERSION = '0.04';
our @ISA = qw(Exporter);
our @EXPORT
he server.
my $ret = fetch_json($self, $self->{'base_url'} . 'storage/' . $collection . '?full=1');
# The 'payload' elements of the fetched array contain a JSON object that
# has to be de
ach my $item (@$ret) {
my $json = decrypt_collection($self, decode_json($item->{'payload'}), $collection);
# What we see now, looks like another JSON object, but it contains some