/usr/share/perl5/Log/Dispatch/Code.pm is in liblog-dispatch-perl 2.58-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 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 | package Log::Dispatch::Code;
use strict;
use warnings;
our $VERSION = '2.58';
use Log::Dispatch::Output;
use base qw( Log::Dispatch::Output );
use Params::Validate qw(validate CODEREF);
Params::Validate::validation_options( allow_extra => 1 );
sub new {
my $proto = shift;
my $class = ref $proto || $proto;
my %p = validate( @_, { code => CODEREF } );
my $self = bless {}, $class;
$self->_basic_init(%p);
$self->{code} = $p{code};
return $self;
}
sub log_message {
my $self = shift;
my %p = @_;
delete $p{name};
$self->{code}->(%p);
}
1;
# ABSTRACT: Object for logging to a subroutine reference
__END__
=pod
=encoding UTF-8
=head1 NAME
Log::Dispatch::Code - Object for logging to a subroutine reference
=head1 VERSION
version 2.58
=head1 SYNOPSIS
use Log::Dispatch;
my $log = Log::Dispatch->new(
outputs => [
[
'Code',
min_level => 'emerg',
code => \&_log_it,
],
]
);
sub _log_it {
my %p = @_;
warn $p{message};
}
=head1 DESCRIPTION
This module supplies a simple object for logging to a subroutine reference.
=for Pod::Coverage new log_message
=head1 CONSTRUCTOR
The constructor takes the following parameters in addition to the standard
parameters documented in L<Log::Dispatch::Output>:
=over 4
=item * code ($)
The subroutine reference.
=back
=head1 HOW IT WORKS
The subroutine you provide will be called with a hash of named arguments. The
two arguments are:
=over 4
=item * level
The log level of the message. This will be a string like "info" or "error".
=item * message
The message being logged.
=back
=head1 SUPPORT
Bugs may be submitted through L<https://github.com/houseabsolute/Log-Dispatch/issues>.
I am also usually active on IRC as 'autarch' on C<irc://irc.perl.org>.
=head1 AUTHOR
Dave Rolsky <autarch@urth.org>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2016 by Dave Rolsky.
This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
|