Yet Another CPAN Grep

Yandex-Audience ( M/MC/MCORVAX/Yandex-Audience-0.01.tar.gz, MCORVAX, 2019; MetaCPAN )

Yandex-Audience/lib/Yandex/Audience.pm ( view source; MetaCPAN )

rnings;
use utf8;
use Carp qw(croak);
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use JSON::XS;
use File::Basename;

use constant APIVERSION => 1;
use constant BASEURL => 'https://api-audi

uthorization  => 'OAuth ' . $self->{token});
  $ua->default_header('Content-Type' => 'application/json');
  $self->{ua} = $ua;

  bless $self, $class;
  return $self;
}

=head2 getListOfSegments()

Re

ntent;
  
  my $json;
  eval {
    $json = JSON::XS->new->utf8->decode( $response->content );
  };
  return undef if $@;

  if (exists $json->{segments}) {
    for my $Segment (@{$json->{segments}}) {