package POE::Component::SmokeBox::Backend::Test::Stress;
use strict;
use warnings;
use base qw(POE::Component::SmokeBox::Backend::Base);
use vars qw($VERSION);
$VERSION = '0.48';
sub _data {
my $self = shift;
$self->{_data} =
{
check => [ '-e', 1 ],
index => [ '-e', 1 ],
smoke => [ '-e', '$|=1; my $module = shift; print $module, qq{\n}; sleep 3;' ],
};
return;
}
1;
__END__
=head1 NAME
POE::Component::SmokeBox::Backend::Test::Stress - a backend to stress test.
=head1 DESCRIPTION
POE::Component::SmokeBox::Backend::Test::Stress is a L<POE::Component::SmokeBox::Backend> plugin used during the
L<POE::Component::SmokeBox> tests.
It contains no moving parts.
=head1 AUTHOR
Chris C<BinGOs> Williams
=head1 LICENSE
Copyright C<(c)> Chris Williams.
This module may be used, modified, and distributed under the same terms as Perl itself. Please see the license that came with your Perl distribution for details.
=head1 SEE ALSO
L<POE::Component::SmokeBox::Backend>
=cut