Yet Another CPAN Grep

App-WatchLater ( Z/ZE/ZENG/App-WatchLater-0.03.1.tar.gz, ZENG, 2019; MetaCPAN )

App-WatchLater/lib/App/WatchLater/YouTube.pm ( view source; MetaCPAN )

oth are
provided, C<access_token> is used for authorization.

=cut

use Carp;
use HTTP::Tiny;
use JSON;

BEGIN {
  my ($ok, $why) = HTTP::Tiny->can_ssl;
  croak $why unless $ok;
}

sub new {
  my ($cl

{
  my ($self, $video_id) = @_;
  my $json = $self->request(
    'GET', '/videos',
    id   => $video_id,
    part => 'snippet',
  );
  my $obj = decode_json($json);
  my $item = $obj->{items}[0] or c