| Tanker documentation | Contained in the Tanker distribution. |
Tanker::Plugin::Log - a logs all request coming down a
use Tanker::Plugin::Log;
my $plugin = new Tanker::Plugin::Log ($pipeline);
$plugin->handle($request);
This is a test plugin that just prints everything it sees to STDERR using Data::Dumper.
Simon Wistow <simon@thegestalt.org>
Tanker, Tanker::Config, Tanker::RequestGenerator, Tanker::ResponseHandler, Tanker::Request, Tanker::Plugin, Data::Dumper
| Tanker documentation | Contained in the Tanker distribution. |
package Tanker::Plugin::Log; use strict; use warnings; use Tanker::Request; use Tanker::Plugin; use Data::Dumper; use vars qw(@ISA); @ISA = qw (Tanker::Plugin); sub handle ($$) { my ($self, $request) = @_; sleep (rand(10)); print STDERR Dumper $request; print STDERR "\n\n"; } 1; __END__