1 files changed, 103 insertions, 0 deletions
diff --git a/lib/WWW/StrawViewer/CommentThreads.pm b/lib/WWW/StrawViewer/CommentThreads.pm
new file mode 100644
index 0000000..499d930
--- /dev/null
+++ b/lib/WWW/StrawViewer/CommentThreads.pm
@@ -0,0 +1,103 @@
+package WWW::StrawViewer::CommentThreads;
+
+use utf8;
+use 5.014;
+use warnings;
+
+=head1 NAME
+
+WWW::StrawViewer::CommentThreads - Retrieve comments threads.
+
+=head1 SYNOPSIS
+
+    use WWW::StrawViewer;
+    my $obj = WWW::StrawViewer->new(%opts);
+    my $videos = $obj->comments_from_video_id($video_id);
+
+=head1 SUBROUTINES/METHODS
+
+=cut
+
+sub _make_commentThreads_url {
+    my ($self, %opts) = @_;
+    return
+      $self->_make_feed_url(
+                            'commentThreads',
+                            pageToken => $self->page_token,
+                            %opts
+                           );
+}
+
+=head2 comments_from_videoID($videoID)
+
+Retrieve comments from a video ID.
+
+=cut
+
+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,
+                         );
+}
+
+=head2 comment_to_video_id($comment, $videoID)
+
+Send a comment to a video ID.
+
+=cut
+
+sub comment_to_video_id {
+    my ($self, $comment, $video_id) = @_;
+
+    my $url = $self->_simple_feeds_url('commentThreads', part => 'snippet');
+
+    my $hash = {
+        "snippet" => {
+
+            "topLevelComment" => {
+                                  "snippet" => {
+                                                "textOriginal" => $comment,
+                                               }
+                                 },
+            "videoId" => $video_id,
+
+            #"channelId"    => $channel_id,
+        },
+    };
+
+    $self->post_as_json($url, $hash);
+}
+
+=head1 AUTHOR
+
+Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >>
+
+
+=head1 SUPPORT
+
+You can find documentation for this module with the perldoc command.
+
+    perldoc WWW::StrawViewer::CommentThreads
+
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2015-2016 Trizen.
+
+This program is free software; you can redistribute it and/or modify it
+under the terms of either: the GNU General Public License as published
+by the Free Software Foundation; or the Artistic License.
+
+See L<http://dev.perl.org/licenses/> for more information.
+
+=cut
+
+1;    # End of WWW::StrawViewer::CommentThreads