1package Log::Dispatch::Null;
2{
3  $Log::Dispatch::Null::VERSION = '2.34';
4}
5
6use strict;
7use warnings;
8
9use Log::Dispatch::Output;
10
11use base qw( Log::Dispatch::Output );
12
13sub new {
14    my $proto = shift;
15    my $class = ref $proto || $proto;
16
17    my $self = bless {}, $class;
18
19    $self->_basic_init(@_);
20
21    return $self;
22}
23
24sub log_message { }
25
261;
27
28# ABSTRACT: Object that accepts messages and does nothing
29
30__END__
31
32=pod
33
34=head1 NAME
35
36Log::Dispatch::Null - Object that accepts messages and does nothing
37
38=head1 VERSION
39
40version 2.34
41
42=head1 SYNOPSIS
43
44  use Log::Dispatch;
45
46  my $null = Log::Dispatch->new( outputs => [ ['Null'] ] );
47
48  $null->emerg( "I've fallen and I can't get up" );
49
50=head1 DESCRIPTION
51
52This class provides a null logging object. Messages can be sent to the
53object but it does nothing with them.
54
55=head1 AUTHOR
56
57Dave Rolsky <autarch@urth.org>
58
59=head1 COPYRIGHT AND LICENSE
60
61This software is Copyright (c) 2011 by Dave Rolsky.
62
63This is free software, licensed under:
64
65  The Artistic License 2.0 (GPL Compatible)
66
67=cut
68