/usr/share/perl5/Plack/Middleware/LogDispatch.pm is in libplack-perl 0.9985-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 | package Plack::Middleware::LogDispatch;
use strict;
use parent qw(Plack::Middleware);
use Plack::Util::Accessor qw(logger);
use Carp ();
sub prepare_app {
my $self = shift;
unless ($self->logger) {
Carp::croak "logger is not defined";
}
}
sub call {
my($self, $env) = @_;
$env->{'psgix.logger'} = sub {
my $args = shift;
$args->{level} = 'critical' if $args->{level} eq 'fatal';
$self->logger->log(%$args);
};
$self->app->($env);
}
1;
__END__
=head1 NAME
Plack::Middleware::LogDispatch - Uses Log::Dispatch to configure logger
=head1 SYNOPSIS
use Log::Dispatch;
my $logger = Log::Dispatch->new;
$logger->add( Log::Dispatch::File->new(...) );
$logger->add( Log::Dispatch::DesktopNotification->new(...) );
builder {
enable "LogDispatch", logger => $logger;
$app;
}
# use with Log::Dispatch::Config
use Log::Dispatch::Config;
Log::Dispatch::Config->configure('/path/to/log.conf');
builder {
enable "LogDispatch", logger => Log::Dispatch::Config->instance;
...
}
=head1 DESCRIPTION
LogDispatch is a Plack::Middleware component that allows you to use
L<Log::Dispatch> to configure logging object.
=head1 CONFIGURATION
=over 4
=item logger
Log::Dispatch object to send logs to. Required.
=back
=head1 AUTHOR
Tatsuhiko Miyagawa
=head1 SEE ALSO
L<Log::Dispatch>
=cut
|