package MooX::Log::Any;
# ABSTRACT: Role to add Log::Any
use Moo::Role;
#use Log::Any::Test;
use Log::Any;
#use Log::Any::Adapter;
local $| = 1;
has 'log' => (
is => 'ro',
# isa => 'Log::Any::Adapter::Base',
lazy => 1,
default => sub { Log::Any->get_logger(); },
);
sub logger {
my $self=shift;
return $self->log;
}
1;
=head1 SYNOPSIS
package MyApp;
use Moo;
with 'MooX::Log::Any';
sub something {
my ($self) = @_;
$self->log->debug("started bar"); ### logs with default class catergory "MyApp"
$self->log->error("started bar"); ### logs with default class catergory "MyApp"
}
=head1 DESCRIPTION
A logging role building a very lightweight wrapper to L<Log::Any> for use with your L<Moo> or L<Moose> classes.
Connectibng a Log::Any::Adapter should be performed prior to logging the first log message, otherwise nothing will happen, just like with Log::Any
Using the logger within a class is as simple as consuming a role:
package MyClass;
use Moo;
with 'MooX::Log::Any';
sub dummy {
my $self = shift;
$self->log->info("Dummy log entry");
}
The logger needs to be setup before using the logger, which could happen in the main application:
package main;
use Log::Any::Adapter;
# Send all logs to Log::Log4perl
Log::Any::Adapter->set('Log4perl')
use MyClass;
my $myclass = MyClass->new();
$myclass->log->info("In my class"); # Access the log of the object
$myclass->dummy; # Will log "Dummy log entry"
=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>. As this method is defined also in other logging
roles/systems like L<MooseX::Log::LogDispatch> this can be thought of as a common logging interface.
package MyApp::View::JSON;
extends 'MyApp::View';
with 'MooseX:Log::Log4perl';
sub bar {
$self->logger->info("Everything fine so far"); # logs a info message
$self->logger->debug("Something is fishy here"); # logs a debug message
}
=head2 logger([$category])
This is an alias for log.
=head1 SEE ALSO
L<Log::Any>, L<Moose>, L<Moo>
=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 the work by Chris Prather C<< <perigrin@cpan.org> >> and Ash
Berlin C<< <ash@cpan.org> >> on L<MooseX::LogDispatch> and Roland Lammel C<< <lammel@cpan.org> >>
=head1 CONTRIBUTORS
In alphabetical order:
=over 2
=back
;