Yet Another CPAN Grep

WWW-Freebox ( V/VB/VBA/WWW-Freebox-0.0.2.tar.gz, VBA, 2015; MetaCPAN )

WWW-Freebox/lib/WWW/Freebox.pm ( view source; MetaCPAN )

strict;
use warnings;
use LWP;
use LWP::Simple;
use HTTP::Request;
use HTTP::Request::Common;
use JSON;
use Digest::HMAC_SHA1 qw(hmac_sha1_hex);

=head1 NAME

WWW::Freebox - Access to FreeboxOS API

=

oxOS API
    	my $content = [download_dir => 'path', download_file => ['file.torrent']];
    	my $jsonResponse = $fbx->request("downloads/add", 1, $content);
    }
    
You can find more informations


=cut

sub new {
	my $class = shift;
	my $self = {
		freebox => shift
	};
	
	my $content = decode_json(get("http://".$self->{freebox}."/api_version") or die("Can't access to http://".$self->{freebox}.