/usr/share/perl5/Log/Dispatch/Null.pm is in liblog-dispatch-perl 2.44-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 | package Log::Dispatch::Null;
$Log::Dispatch::Null::VERSION = '2.44';
use strict;
use warnings;
use Log::Dispatch::Output;
use base qw( Log::Dispatch::Output );
sub new {
my $proto = shift;
my $class = ref $proto || $proto;
my $self = bless {}, $class;
$self->_basic_init(@_);
return $self;
}
sub log_message { }
1;
# ABSTRACT: Object that accepts messages and does nothing
__END__
=pod
=encoding UTF-8
=head1 NAME
Log::Dispatch::Null - Object that accepts messages and does nothing
=head1 VERSION
version 2.44
=head1 SYNOPSIS
use Log::Dispatch;
my $null
= Log::Dispatch->new( outputs => [ [ 'Null', min_level => 'debug' ] ] );
$null->emerg( "I've fallen and I can't get up" );
=head1 DESCRIPTION
This class provides a null logging object. Messages can be sent to the
object but it does nothing with them.
=for Pod::Coverage new log_message
=head1 AUTHOR
Dave Rolsky <autarch@urth.org>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2014 by Dave Rolsky.
This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
|