NAME

WWW::Chain - A web request chain

VERSION

version 0.001

SYNOPSIS

  my $chain = WWW::Chain->new(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;
      };
  });

  # Blocking usage

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

  # ... or non blocking usage example

  unless ($chain->done) {
    my @http_requests = @{$chain->next_requests};
    # ... execute the HTTP::Request objects to get HTTP::Response objects
    $chain->next_responses(@http_responses);
  }

  # Working with the result

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

DESCRIPTION

AUTHOR

Torsten Raudssus <torsten@raudss.us>

COPYRIGHT AND LICENSE

This software is copyright (c) 2012 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.