NAME

WWW::Chain - A web request chain

VERSION

version 0.007

SYNOPSIS

# Coderef usage

use WWW::Chain; # exports www_chain

my $chain = www_chain(HTTP::Request->new( GET => 'http://localhost/' ), sub {
  my ( $chain, $response ) = @_;
  $chain->stash->{first_request} = 'done';
  return
    HTTP::Request->new( GET => 'http://localhost/' ),
    HTTP::Request->new( GET => 'http://other.localhost/' ),
    sub {
      my ( $chain, $first_response, $second_response ) = @_;
      $chain->stash->{two_calls_finished} = 'done';
      return;
    };
});

# Method usage (can be mixed with Coderef)

{
  package TestWWWChainMethods;
  use Moo;
  extends 'WWW::Chain';

  has path_part => (
    is => 'ro',
    required => 1,
  );

  # Function used to determine first requests on class, will be added to BUILDARGS
  sub start_chain {
    return HTTP::Request->new( GET => 'https://conflict.industries/'.$_[0]->path_part ), 'first_response';
  }

  sub first_response {
    $_[0]->stash->{a} = 1;
    return HTTP::Request->new( GET => 'https://conflict.industries/'.$_[0]->path_part ), 'second_response';
  }

  sub second_response {
    $_[0]->stash->{b} = 2;
    return;
  }
}

my $chain = TestWWWChainMethods->new( path_part => 'wwwchain' );

# Blocking usage:

my $ua = WWW::Chain::UA::LWP->new;
$ua->request_chain($chain);

# ... or non blocking usage example:

my @http_requests = @{$chain->next_requests};
# ... do something with the HTTP::Request objects to get HTTP::Response objects
$chain->next_responses(@http_responses);
# repeat those till $chain->done

# Working with the result

print $chain->stash->{two_calls_finished};

DESCRIPTION

More documentation to come, API stabilized.

AUTHOR

Torsten Raudssus <torsten@raudssus.de> https://raudss.us/

COPYRIGHT AND LICENSE

This software is copyright (c) 2024 by Torsten Raudssus.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.