File Coverage

blib/lib/HTTP/WebTest/Plugin/Delay.pm

Criterion	Covered	Total	%
statement	12	13	92.3
branch	2	2	100.0
condition			n/a
subroutine	4	5	80.0
pod	1	2	50.0
total	19	22	86.3

# $Id: Delay.pm,v 1.4 2003/03/02 11:52:09 m_ilya Exp $

package HTTP::WebTest::Plugin::Delay;

=head1 NAME

HTTP::WebTest::Plugin::Delay - Pause before running test

=head1 SYNOPSIS

    plugins = ( ::Delay )

    test_name = Name
        delay = 10
        ....
    end_test

=head1 DESCRIPTION

This plugin module lets you specify pauses before running specific tests
in the test sequence.

=cut

use strict;
use base qw(HTTP::WebTest::Plugin);

use Time::HiRes qw(sleep);

=head1 TEST PARAMETERS

=for pod_merge copy opt_params

=head2 delay

Duration of pause (in seconds) before running test.

=head3 Allowed values

Any number greater that zero.

=cut

sub param_types {
    return q(delay scalar);
}

sub prepare_request {
    my $self = shift;

    if(my $delay = $self->test_param('delay')) {
	sleep($delay);
    }
}

=head1 COPYRIGHT

Copyright (c) 2002-2003 Duncan Cameron.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 SEE ALSO

L

L

L

L

=cut

1;