/usr/share/perl5/Catmandu/Logger.pm is in libcatmandu-perl 0.9505-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 | package Catmandu::Logger;
use Catmandu::Sane;
our $VERSION = '0.9505';
use Moo::Role;
use Log::Any ();
use namespace::clean;
local $| = 1;
has 'log' => (is => 'lazy');
sub _build_log {
my ($self) = @_;
Log::Any->get_logger(category => ref($self));
}
1;
__END__
=pod
=head1 NAME
Catmandu::Logger - A role for classes that need logging capabilities
=head1 NAME
Catmandu::Logger - Logging class for Catmandu
=head1 SYNOPSIS
package MyApp::View;
use Moo;
with 'Catmandu::Logger';
sub something {
my ($self) = @_;
$self->log->debug("started bar"); # logs with default class catergory "MyApp::View"
$self->log->error("started bar");
}
=head1 DESCRIPTION
A logging role building a very lightweight wrapper to L<Log::Any>. Connecting
a Log::Any::Adapter should be performed prior to logging the first log message,
otherwise nothing will happen, just like with Log::Any.
The logger needs to be setup before using the logger, which could happen in the main application:
package main;
use Log::Any::Adapter;
use Log::Log4perl;
Log::Any::Adapter->set('Log4perl');
Log::Log4perl::init('./log4perl.conf');
my $app = MyApp::View->new;
$app->something(); # will print debug and error messages
with log4perl.conf as:
log4perl.rootLogger=DEBUG,STDOUT
log4perl.appender.STDOUT=Log::Log4perl::Appender::Screen
log4perl.appender.STDOUT.stderr=1
log4perl.appender.STDOUT.utf8=1
log4perl.appender.STDOUT.layout=PatternLayout
log4perl.appender.STDOUT.layout.ConversionPattern=%d [%P] - %p %l time=%r : %m%n
=head1 ACCESSORS
=head2 log
The C<log> attribute holds the L<Log::Any::Adapter> object that implements all logging methods for the
defined log levels, such as C<debug> or C<error>.
package MyApp::View::JSON;
extends 'MyApp::View';
with 'Catmandu::Logger';
sub bar {
$self->log->info("Everything fine so far"); # logs a info message
$self->log->debug("Something is fishy here"); # logs a debug message
}
Your package automatically has a logging category of MyApp::View::JSON. Use lines like:
log4perl.logger.MyApp::View::JSON=DEBUG,STDOUT
or
log4perl.logger.MyApp::View=DEBUG,STDOUT
or
log4perl.logger.MyApp=DEBUG,STDOUT
for specialized logging for your application.
=head1 SEE ALSO
L<Log::Any>
=head1 ACKNOWLEDGMENTS
Code and documentation blatantly stolen from C<MooX::Log::Any>.
=cut
|