Yet Another CPAN Grep

StreamRoot-Manifest ( L/LU/LUCAS/StreamRoot-Manifest-0.03.tar.gz, LUCAS, 2015; MetaCPAN )

StreamRoot-Manifest/lib/StreamRoot/Manifest.pm ( view source; MetaCPAN )

package StreamRoot::Manifest;

use strict;
use warnings;
use WWW::Curl::Easy;
use JSON;

our $VERSION = '0.03';

sub new {
    my $class = shift;
    my $self = {};
    $self->{token} = shift||undef;

^2/) {
            decode_json($content) if $content !~ /^$/;
        }else{
            if ($self->{curl}->getinfo(CURLINFO_HTTP_CODE) =~ /^4/) {
                decode_json($content) if $content !~