/usr/share/perl5/MooseX/Log/Log4perl/Easy.pm is in libmoosex-log-log4perl-perl 0.46-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 | package MooseX::Log::Log4perl::Easy;
use Any::Moose 'Role';
with 'MooseX::Log::Log4perl';
our $VERSION = '0.46';
sub log_fatal { local $Log::Log4perl::caller_depth += 1; return shift->logger->fatal(@_); }
sub log_error { local $Log::Log4perl::caller_depth += 1; return shift->logger->error(@_); }
sub log_warn { local $Log::Log4perl::caller_depth += 1; return shift->logger->warn(@_); }
sub log_info { local $Log::Log4perl::caller_depth += 1; return shift->logger->info(@_); }
sub log_debug { local $Log::Log4perl::caller_depth += 1; return shift->logger->debug(@_); }
sub log_trace { local $Log::Log4perl::caller_depth += 1; return shift->logger->trace(@_); }
1;
__END__
=head1 NAME
MooseX::Log::Log4perl::Easy - A role for easy usage of logging in your Moose based modules based on L<MooseX::Log::Log4perl>
=head1 SYNOPSIS
package MyApp;
use Moose;
use Log::Log4perl qw(:easy);
with 'MooseX::Log::Log4perl::Easy';
BEGIN {
Log::Log4perl->easy_init();
}
sub foo {
my ($self) = @_;
$self->log_debug("started bar"); ### logs with default class catergory "MyApp"
$self->log_info('bar'); ### logs an info message
$self->log('AlsoPossible')->fatal("croak"); ### log
}
=head1 DESCRIPTION
The Easy logging role based on the L<MooseX::Log::Log4perl> logging role for Moose directly adds the
logmethods for all available levels to your class instance. Hence it is possible to use
$self->log_info("blabla");
without having to access a separate log attribute as in MooseX::Log::Log4perl;
In case your app grows and you need more of the super-cow powers of Log4perl or simply don't want the additional
methods to clutter up your class you can simply replace all code C<< $self->log_LEVEL >> with
C<< $self->log->LEVEL >>.
You can use the following regex substitution to accomplish that:
s/log(_(trace|debug|info|warn|error|fatal))/log->$2/g
=head1 ACCESSORS
=head2 logger
See L<MooseX::Log::Log4perl>
=head2 log
See L<MooseX::Log::Log4perl>
=head2 log_fatal ($msg)
Logs a fatal message $msg using the logger attribute. Same as calling
$self->logger->fatal($msg)
=head2 log_error ($msg)
Logs an error message using the logger attribute. Same as calling
$self->logger->error($msg)
=head2 log_warn ($msg)
Logs a warn message using the logger attribute. Same as calling
$self->logger->warn($msg)
=head2 log_info ($msg)
Logs an info message using the logger attribute. Same as calling
$self->logger->info($msg)
=head2 log_debug ($msg)
Logs a debug message using the logger attribute. Same as calling
$self->logger->debug($msg)
=head2 log_trace ($msg)
Logs a trace message using the logger attribute. Same as calling
$self->logger->trace($msg)
=head1 SEE ALSO
L<MooseX::Log::Log4perl>, L<Log::Log4perl>, L<Moose>
=head1 BUGS AND LIMITATIONS
Please report any bugs or feature requests to
C<bug-moosex-log4perl@rt.cpan.org>, or through the web interface at
L<http://rt.cpan.org>.
Or come bother us in C<#moose> on C<irc.perl.org>.
=head1 AUTHOR
Roland Lammel C<< <lammel@cpan.org> >>
Inspired by suggestions by Michael Schilli C<< <m@perlmeister.com> >>
Contributions from Tim Bunce C<< <TIMB@cpan.org> >>
=head1 LICENSE AND COPYRIGHT
Copyright (c) 2008-2012, Roland Lammel C<< <lammel@cpan.org> >>, http://www.quikit.at
This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. See L<perlartistic>.
|