CPAN::Groonga

use warnings;

package WebService::Freebox;

# ABSTRACT: Freebox API wrappers.


use Mouse;

use JSON;
use REST::Client;

our $VERSION = '0.001'; # VERSION

has app_id => ( is => 'ro', isa => 'Str', 

ttp://mafreebox.freebox.fr');
    $c->addHeader('Accept', 'application/json');
    $c->addHeader('Content-Type', 'application/json');

    return $c;
}

# Wrapper around REST::Client request() checkin

    die qq{$errmsg ("$request $url" failed with HTTP error $errcode).\n}
    }

    return decode_json $c->responseContent()
}

# Helper for making normal API requests, i.e. all except for the initial