File Coverage

blib/lib/MooseX/Role/Logger.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	25	25	100.0

use strict;
use warnings;

package MooseX::Role::Logger;
# ABSTRACT: Provide logging via Log::Any
our $VERSION = '0.003'; # VERSION

use Moo::Role;
use Types::Standard qw/Str/;

use Log::Any ();

#pod =method _logger
#pod
#pod Returns a logging object.  See L for a list of logging methods it accepts.
#pod
#pod =cut

has _logger => (
    is       => 'lazy',
    isa      => sub { ref( $_[0] ) =~ /^Log::Any/ }, # XXX too many options
    init_arg => undef,
);

sub _build__logger {
    my ($self) = @_;
    return Log::Any->get_logger( category => $self->_logger_category );
}

has _logger_category => (
    is  => 'lazy',
    isa => Str,
);

#pod =method _build__logger_category
#pod
#pod Override to set the category used for logging.  Defaults to the class name of
#pod the object (which could be a subclass).  You can override to lock it to a
#pod particular name:
#pod
#pod     sub _build__logger_category { __PACKAGE__ }
#pod
#pod =cut

sub _build__logger_category { return ref $_[0] }

1;


# vim: ts=4 sts=4 sw=4 et:

__END__