#  $Id: take_five.pm,v 1.1 2006/08/09 15:21:32 jonas Exp $  -*-cperl-*-
package Para::Frame::Action::take_five;

# For testing purposes

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

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


    return "Took five";
}

1;