File Coverage

blib/lib/WWW/Agent/Plugins/GoldCoasting.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	2	2	100.0
condition	2	4	50.0
subroutine	7	7	100.0
pod	0	1	0.0
total	39	42	92.8

package WWW::Agent::Plugins::GoldCoasting;

use strict;
use Data::Dumper;
use POE;

sub new {
    my $class   = shift;
    my %options = @_;
    return bless {
	hooks => {
	    'init' => sub {
		my ($kernel, $heap)  = (shift, shift);
		$heap->{laziness}->{wait}       = $options{wait}  || 10;
		$heap->{laziness}->{limit}      = $options{limit} ||  3;
		return 1;
	    },
	    'cycle_pos_response' => sub {
                my ($kernel, $heap) = (shift, shift);
                my ($tab, $response) = (shift, shift);
                my $url  = $response->request->uri;

		warn "# before $url: working very hard for some secs";
		sleep $heap->{laziness}->{wait}; # you should not use blocking...
		$heap->{laziness}->{counter}++; # we do not care which tab it is
		if ($heap->{laziness}->{counter} < $heap->{laziness}->{limit}) {
		    $kernel->yield ('cycle_start', $tab, $response->request);
		} else {
		    $kernel->yield ('laziness_end', $tab);
		}
                return $response;
            },
	    'laziness_end' => sub {
		my ($heap) = $_[HEAP];
		warn "# we call it a life-style to stop after ".$heap->{laziness}->{limit}." requests";
	    },
	},
	namespace => 'laziness',
    }, $class;
}

our $VERSION = '0.01';
our $REVISION = '$Id: GoldCoasting.pm,v 1.2 2005/03/19 10:04:00 rho Exp $';

1;

__END__