[Http-webtest-commits] CVS: HTTP-WebTest/lib/HTTP/WebTest/Plugin Delay.pm,NONE,1.1

[Ilya M. <m_...@us...>]

Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin
In directory usw-pr-cvs1:/tmp/cvs-serv19365/lib/HTTP/WebTest/Plugin

Added Files:
	Delay.pm 
Log Message:
Added Delay plugin


--- NEW FILE: Delay.pm ---
# $Id: Delay.pm,v 1.1 2002/06/19 10:29:32 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 allows to add pauses before running specific tests
in 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

This is a scalar parameter which defines 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 Duncan Cameron.  All rights reserved.

Copyright (c) 2002 Ilya Martynov.  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<HTTP::WebTest|HTTP::WebTest>

L<HTTP::WebTest::API|HTTP::WebTest::API>

L<HTTP::WebTest::Plugin|HTTP::WebTest::Plugin>

L<HTTP::WebTest::Plugins|HTTP::WebTest::Plugins>

=cut

1;