#  $Id: take_five.pm,v 1.4 2009-01-15 14:04:43 jonas Exp $  -*-cperl-*-
package Para::Frame::Action::take_five;

use strict;

# For testing purposes

sub handler
{
    my( $req ) = @_;

    my $count = $req->q->param('count') || 5;

    for(1..$count)
    {
	sleep 1;
	$req->yield;
#	$req->note("Round $_");
    }


    return "Took five";
}

1;