#!/usr/bin/env perl use strict; use warnings; use Data::Dumper; use YTMusicAPI::YTMusic; use YTMusicAPI::Auth::OAuth::OAuthCredentials; # my $c = YTMusicAPI::Auth::OAuth::OAuthCredentials->new(); # my $code = $c->get_code(); # print Dumper($code); my $yt = YTMusicAPI::YTMusic->new('Tests/oauth.json'); # my $search_results = $yt->search('Oasis Wonderwall'); # print Dumper($search_results); my $liked_songs = $yt->get_liked_songs(2); foreach my $track ( @{ $liked_songs->{"tracks"} } ) { print $track->{"title"} . "\n"; } # my $song = $yt->get_song("CF1rt_9pdgU"); # print Dumper($song); 1;