home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / NoopLayout.pm < prev    next >
Encoding:
Perl POD Document  |  2003-01-20  |  1.1 KB  |  55 lines
  1. ##################################################
  2. package Log::Log4perl::Layout::NoopLayout;
  3. ##################################################
  4.  
  5.  
  6. ##################################################
  7. sub new {
  8. ##################################################
  9.     my $class = shift;
  10.     $class = ref ($class) || $class;
  11.  
  12.     my $self = {
  13.         format      => undef,
  14.         info_needed => {},
  15.         stack       => [],
  16.     };
  17.  
  18.     bless $self, $class;
  19.  
  20.     return $self;
  21. }
  22.  
  23. ##################################################
  24. sub render {
  25. ##################################################
  26.     #my($self, $message, $category, $priority, $caller_level) = @_;
  27.     return $_[1];;
  28. }
  29.  
  30. 1;
  31.  
  32. __END__
  33.  
  34. =head1 NAME
  35.  
  36. Log::Log4perl::Layout::NoopLayout - Pass-thru Layout
  37.  
  38. =head1 SYNOPSIS
  39.  
  40.   use Log::Log4perl::Layout::NoopLayout;
  41.   my $layout = Log::Log4perl::Layout::NoopLayout->new();
  42.  
  43. =head1 DESCRIPTION
  44.  
  45. This is a no-op layout, returns the logging message unaltered,
  46. useful for implementing the DBI logger.
  47.  
  48. =head1 SEE ALSO
  49.  
  50. =head1 AUTHOR
  51.  
  52. Kevin Goess, <cpan@goess.org>  12/2002
  53.  
  54. =cut
  55.