aboutsummaryrefslogtreecommitdiffstats
path: root/lib/WWW/StrawViewer.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/WWW/StrawViewer.pm')
-rw-r--r--lib/WWW/StrawViewer.pm14
1 files changed, 14 insertions, 0 deletions
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) = @_;