CPAN::Groonga

p qw/croak carp/;
use URI::Escape;
use LWP::UserAgent;
use File::Basename;
use HTTP::Request;
use JSON::XS;

use Mediafire::Api::UploadFile;
use Mediafire::Api::DownloadFile;

our $VERSION = '0.02';

=json'; 
    my $res = $self->{ua}->get($url, %headers);
    my $code = $res->code;
    if ($code ne '200') {
        croak "Can't renew session token by url: '$url'. Code: $code";
    }

    my $json

val {
        decode_json($res->decoded_content);
    };
    if ($@) {
        croak "Can't decode response to json: $res->decoded_content";
    }

    my $response_result = $json_res->{response}->{re

p qw/croak carp/;
use URI::Escape;
use LWP::UserAgent;
use File::Basename;
use HTTP::Request;
use JSON::XS;

use Mediafire::Api::File;

our $VERSION = '0.01';

my $DEFAULT_BUFF_SIZE           = 104857

p qw/croak carp/;
use URI::Escape;
use LWP::UserAgent;
use File::Basename;
use HTTP::Request;
use JSON::XS;
use MIME::Detect;
use Crypt::Digest::SHA256 qw/sha256_hex/;
use Time::HiRes qw/gettimeofday/

f->{path},
        'session_token'     => $self->{session_token},
        'response_format'   => 'json',
        $microseconds       => '', 
    );

    my $param_str = join('&', map {"$_=" . uri_esca

}
    my $json_res = eval {
        decode_json($res->decoded_content);
    };
    if ($@) {
        croak "Can't parse respone '" . $res->decoded_content . "' to json";
    }

    # Get json response