MooseX::LogDispatch::Levels - MooseX::LogDispatch::Levels documentation

 package MyLogger;
 use Moose;
 with 'MooseX::LogDispatch::Levels';

 # Optional configuration attribute would go here.

 # Elsewhere...

 my $logger = MyLogger->new;
 $logger->debug("Something to log");
 $logger->logger->debug("This also works");

package MooseX::LogDispatch::Levels;

use Moose::Role;
use MooseX::LogDispatch::Interface;

# Ideally i would like to be able to do
#
with 'MooseX::LogDispatch';
#has '+logger' => ( handles => 'MooseX::LogDispatch::Interface' );
#
# but it doesn't work because roles don't handle +attr

# nor do they handle 'extends' which fucks up the OTHER approach

# the dirty trick of has _logger => (
#    default => sub { shift->logger }
#    handles => ....
# )
# also doesn't work because you can't massage the CallerDepth!

# We could probably do this in some really sick way using autobox
# and ->curry, but life's too short.

sub _handle_log {
  my ($self, $level, @args) = @_;
  local $Log::Dispatch::Config::CallerDepth = $Log::Dispatch::Config::CallerDepth + 2;
  $self->logger->$level(@args);
}

sub log { shift->_handle_log('log',@_) }
sub debug { shift->_handle_log('debug', @_) }
sub info { shift->_handle_log('info',@_) }
sub notice { shift->_handle_log('notice',@_) }
sub warning { shift->_handle_log('warning',@_) }
sub error { shift->_handle_log('error',@_) }
sub critical { shift->_handle_log('critical',@_) }
sub alert { shift->_handle_log('alert',@_) }
sub emergency { shift->_handle_log('emergency',@_) }

no Moose::Role;
1; # need the magic smoke
__END__