From d3c5fe3152d72c9ff8e926f5371b26441ba27e80 Mon Sep 17 00:00:00 2001
From: trizen <trizen@protonmail.com>
Date: Sat, 15 Feb 2020 06:18:27 +0200
Subject: Added basic support for showing comments.

---
 lib/WWW/StrawViewer/CommentThreads.pm | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

(limited to 'lib/WWW/StrawViewer/CommentThreads.pm')

diff --git a/lib/WWW/StrawViewer/CommentThreads.pm b/lib/WWW/StrawViewer/CommentThreads.pm
index 499d930..1eba143 100644
--- a/lib/WWW/StrawViewer/CommentThreads.pm
+++ b/lib/WWW/StrawViewer/CommentThreads.pm
@@ -36,15 +36,10 @@ Retrieve comments from a video ID.
 
 sub comments_from_video_id {
     my ($self, $video_id) = @_;
-    return
-      $self->_get_results(
-                          $self->_make_commentThreads_url(
-                                                          videoId    => $video_id,
-                                                          textFormat => 'plainText',
-                                                          order      => $self->get_comments_order,
-                                                          part       => 'snippet,replies'
-                                                         ),
-                          simple => 1,
+    $self->_get_results(
+                          $self->_make_feed_url("comments/$video_id",
+                                        sort_by      => $self->get_comments_order,
+                                ),
                          );
 }
 
-- 
cgit v1.2.3