blob: 43685eba3fbe227dac0a3eb7ddf12965a0391b63 (
plain) (
blame)
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
|
package Net::HTTP::Spore::Middleware::LogDispatch;
# ABSTRACT: Net::HTTP::Spore::Middleware::LogDispatch is a middleware that allow you to use LogDispatch.
use Moose;
extends 'Net::HTTP::Spore::Middleware';
has logger => (is => 'rw', isa => 'Log::Dispatch', required => 1);
sub call {
my ($self, $req) = @_;
my $env = $req->env;
$env->{'sporex.logger'} = sub {
my $args = shift;
$args->{level} = 'critical' if $args->{level} eq 'fatal';
$self->logger->log(%$args);
};
}
1;
=head1 SYNOPSIS
my $log = Log::Dispatch->new();
$log->add(
Log::Dispatch::File->new(
name => 'file1',
min_level => 'debug',
filename => 'logfile'
)
);
my $client = Net::HTTP::Spore->new_from_spec('twitter.json');
$client->enable( 'LogDispatch', logger => $log );
|