From 70665dfdba007791e7f8c8595fa7aba26449b32a Mon Sep 17 00:00:00 2001
From: trizen <trizen@protonmail.com>
Date: Thu, 27 Feb 2020 08:54:42 +0200
Subject: Added support for next pages of comments.

---
 lib/WWW/StrawViewer.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'lib/WWW')

diff --git a/lib/WWW/StrawViewer.pm b/lib/WWW/StrawViewer.pm
index 5f0ae02..934dfc9 100644
--- a/lib/WWW/StrawViewer.pm
+++ b/lib/WWW/StrawViewer.pm
@@ -998,6 +998,20 @@ sub post_as_json {
     $self->_save('POST', $url, $json_str);
 }
 
+sub next_page_with_token {
+    my ($self, $url, $token) = @_;
+
+    my $pt_url = (
+                    $url =~ s{[?&]continuation=\K([^&]+)}{$token}
+                  ? $url
+                  : $self->_append_url_args($url, continuation => $token)
+                 );
+
+    my $res = $self->_get_results($pt_url);
+    $res->{url} = $pt_url;
+    return $res;
+}
+
 sub next_page {
     my ($self, $url) = @_;
 
-- 
cgit v1.2.3