diff options
| author | trizen <trizen@protonmail.com> | 2020-02-15 06:18:27 +0200 |
|---|---|---|
| committer | trizen <trizen@protonmail.com> | 2020-02-15 06:18:27 +0200 |
| commit | d3c5fe3152d72c9ff8e926f5371b26441ba27e80 (patch) | |
| tree | 511c03099c68f1eb4ff4ffa9f9d6351f442b0e87 /lib/WWW/StrawViewer/CommentThreads.pm | |
| parent | 21c134c5d9e2d620998a6c0a40ee98feec266177 (diff) | |
| download | fair-viewer-d3c5fe3152d72c9ff8e926f5371b26441ba27e80.tar.lz fair-viewer-d3c5fe3152d72c9ff8e926f5371b26441ba27e80.tar.xz fair-viewer-d3c5fe3152d72c9ff8e926f5371b26441ba27e80.zip | |
Added basic support for showing comments.
Diffstat (limited to 'lib/WWW/StrawViewer/CommentThreads.pm')
| -rw-r--r-- | lib/WWW/StrawViewer/CommentThreads.pm | 13 |
1 files changed, 4 insertions, 9 deletions
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, + ), ); } |