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