/usr/share/perl5/Log/Any/Adapter/Log4perl.pm is in liblog-any-adapter-log4perl-perl 0.08-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 131 132 133 134 135 136 137 138 139 140 141 | use strict;
use warnings;
package Log::Any::Adapter::Log4perl;
# ABSTRACT: Log::Any adapter for Log::Log4perl
use Log::Log4perl 1.32; # bug-free wrapper_register available
use Log::Any::Adapter::Util 1.03 qw(make_method);
use base qw(Log::Any::Adapter::Base);
our $VERSION = '0.08';
# Ensure %F, %C, etc. skip Log::Any related packages
Log::Log4perl->wrapper_register(__PACKAGE__);
Log::Log4perl->wrapper_register("Log::Any::Proxy");
sub init {
my ($self) = @_;
$self->{logger} = Log::Log4perl->get_logger( $self->{category} );
}
foreach my $method ( Log::Any->logging_and_detection_methods() ) {
my $log4perl_method = $method;
# Map log levels down to log4perl levels where necessary
#
for ($log4perl_method) {
s/notice/info/;
s/warning/warn/;
s/critical|alert|emergency/fatal/;
}
make_method(
$method,
sub {
my $self = shift;
return $self->{logger}->$log4perl_method(@_);
}
);
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Log::Any::Adapter::Log4perl - Log::Any adapter for Log::Log4perl
=head1 VERSION
version 0.08
=head1 SYNOPSIS
use Log::Log4perl;
Log::Log4perl::init('/etc/log4perl.conf');
Log::Any::Adapter->set('Log::Log4perl');
=head1 DESCRIPTION
This Log::Any adapter uses L<Log::Log4perl|Log::Log4perl> for logging. log4perl
must be initialized before calling I<set>. There are no parameters.
=for Pod::Coverage init
=head1 LOG LEVEL TRANSLATION
Log levels are translated from Log::Any to Log4perl as follows:
notice -> info
warning -> warn
critical -> fatal
alert -> fatal
emergency -> fatal
=head1 SEE ALSO
=over 4
=item *
L<Log::Any>
=item *
L<Log::Any::Adapter>
=item *
L<Log::Log4perl>
=back
=for :stopwords cpan testmatrix url annocpan anno bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan
=head1 SUPPORT
=head2 Bugs / Feature Requests
Please report any bugs or feature requests through the issue tracker
at L<https://github.com/dagolden/Log-Any-Adapter-Log4perl/issues>.
You will be notified automatically of any progress on your issue.
=head2 Source Code
This is open source software. The code repository is available for
public review and contribution under the terms of the license.
L<https://github.com/dagolden/Log-Any-Adapter-Log4perl>
git clone https://github.com/dagolden/Log-Any-Adapter-Log4perl.git
=head1 AUTHORS
=over 4
=item *
Jonathan Swartz <swartz@pobox.com>
=item *
David Golden <dagolden@cpan.org>
=back
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2015 by Jonathan Swartz.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|