File Coverage

blib/lib/WWW/Chain/UA/LWP.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	0	1	0.0
total	31	36	86.1

package WWW::Chain::UA::LWP;
our $AUTHORITY = 'cpan:GETTY';
# ABSTRACT: Using LWP::UserAgent to execute WWW::Chain chains
$WWW::Chain::UA::LWP::VERSION = '0.006';
use Moo;
extends 'LWP::UserAgent';

use HTTP::Cookies;

with qw( WWW::Chain::UA );

use Scalar::Util 'blessed';
use Safe::Isa;

sub request_chain {
	my ( $self, $chain ) = @_;
	die __PACKAGE__."->request_chain needs a WWW::Chain object as parameter"
		unless ( blessed($chain) && $chain->$_isa('WWW::Chain') );
	$self->cookie_jar({}) unless $self->cookie_jar;
	while (!$chain->done) {
		my @responses;
		for (@{$chain->next_requests}) {
			my $response = $self->request($_);
			push @responses, $response;
		}
		$chain->next_responses(@responses);
	}
	return $chain;
}

1;

__END__