matteo/ytmusicapi-perl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add OAuth

Browse Source
This commit is contained in:
mschuepbach
2024-03-27 15:25:17 +01:00
parent 088fdb2b16
commit 8c0319f293
6 changed files with 398 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Tests/Test.pl
View File

@@ -6,16 +6,27 @@ use warnings;
use Data::Dumper;
use YTMusicAPI::YTMusic;
use YTMusicAPI::Auth::OAuth::OAuthCredentials;
my $yt = YTMusicAPI::YTMusic->new();
# 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');
my $search_results = $yt->get_liked_songs(2);
# print Dumper($search_results);
foreach my $track ( @{ $search_results->{"tracks"} } ) {
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;