Yet Another CPAN Grep

VK-MP3 ( E/EA/EAX/VK-MP3-0.08.tar.gz, EAX, 2012; MetaCPAN )

VK-MP3/lib/VK/MP3.pm ( view source; MetaCPAN )

;
use utf8;

use LWP;
use LWP::Protocol::https;
use HTML::Entities;
use URI::Escape;
use JSON::XS qw/decode_json/;
use Encode;

our $VERSION = 0.08;

sub new {
  my ($class, %args) = @_;
  die 'USAGE:

s->is_success;

  my $json_str = (split /<!>/, $res->decoded_content)[5];
  $json_str =~ s/'/"/gs;
  $json_str = Encode::encode('utf-8', $json_str);
  my $json = decode_json($json_str);
  return 'Inva

lid response' unless defined $json->{all} && ref($json->{all}) eq 'ARRAY';

  my @rslt;
  for my $item(@{$json->{all}}) {
    next unless ref $item eq 'ARRAY' && scalar @{$item} > 7;
    my $name = de