CPAN::Groonga

5.008001;

our $VERSION = '0.65';

use Carp qw(croak);
use URI ();
use LWP::UserAgent;
use JSON::MaybeXS 'JSON';
use HTML::Entities qw/decode_entities/;
use HTTP::Request;
use MIME::Type;

$Carp::Inte

>_is_new($content)) {
      my $args        = $self->_get_args($content);
      my $player_resp = JSON()->new->decode($args->{player_response});
      $video_url_map  = $self->_decode_player_response(

s*=\s*(\{.*})/) {
            ($data, undef) = JSON->new->utf8(1)->decode_prefix($1);
            last;
        }
    }

    croak 'failed to extract JSON data' unless $data->{args};

    return $data