use strict;
use warnings;
use 5.008;
use LWP::Simple;
use LWP::UserAgent;
use Carp;
use JSON qw(decode_json);
# Freesound.org urls.
#
our %urls = (
'base' => 'https://www.freesound.org
can then be used as inputs to C<$freesound->query> -
the output formatted into HTML (from XML or json) as you
wish. With Freesound you get a picture of the waveform and a low quality sound preview s
le exists.
#
if ( -s $self->session_file ) {
# Read the session file and get its json auth tokens.
#
open my $fh, '<', $self->session_file
or croak