NAME

WWW::Chain - A web request chain

VERSION

version 0.100

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.

SUPPORT

Source Code

The code is open to the world, and available for you to hack on. Please feel free to browse it and play with it, or whatever. If you want to contribute patches, please send me a diff or prod me to pull from your repository :)

https://github.com/Getty/p5-www-chain

git clone https://github.com/Getty/p5-www-chain.git

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.