1Appender::TestFileCreepUesre(r3)Contributed Perl DocumenAtpapteinodner::TestFileCreeper(3)
2
3
4
6 Log::Log4perl::Appender::TestFileCreeper - Intentionally slow test
7 appender
8
10 use Log::Log4perl::Appender::TestFileCreeper;
11
12 my $app = Log::Log4perl::Appender::TestFileCreeper->new(
13 filename => 'file.log',
14 mode => 'append',
15 );
16
17 $file->log(message => "Log me\n");
18
20 This is a test appender, and it is intentionally slow. It writes out
21 one byte at a time to provoke sync errors. Don't use it, unless for
22 testing.
23
25 Copyright 2002-2009 by Mike Schilli <m@perlmeister.com> and Kevin Goess
26 <cpan@goess.org>.
27
28 This library is free software; you can redistribute it and/or modify it
29 under the same terms as Perl itself.
30
31
32
33perl v5.12.2 2010-08-31 Appender::TestFileCreeper(3)