Yet Another CPAN Grep

WebService-FritzBox ( R/RC/RCL/WebService-FritzBox-0.01.tar.gz, RCL, 2016; MetaCPAN )

WebService-FritzBox/lib/WebService/FritzBox.pm ( view source; MetaCPAN )

 WebService::FritzBox;
# ABSTRACT: Interface to FritzBox devices
use Digest::MD5 qw/md5_hex/;
use JSON::MaybeXS;
use LWP::UserAgent;
use Log::Log4perl;
use Moose;
use MooseX::Params::Validate;
use Try

ata = decode_json( $response->decoded_content );
        # It's just an array with one element...
        $data = $data->[0];
    }catch{
        $self->log->logdie( "Could not decode json: $_" );