view release on metacpan or  search on metacpan

lib/Dancer2/Logger/LogReport.pm  view on Meta::CPAN

our $AUTHORITY = 'cpan:MARKOV';

my %level_dancer2lr =
( core  => 'TRACE',
	debug => 'TRACE'
);

with 'Dancer2::Core::Role::Logger';

# Set by calling function
has dispatchers => (is => 'ro', isa => Maybe[HashRef]);

sub BUILD
{	my $self     = shift;
	my $configs  = $self->dispatchers || +{ default => undef };
	$self->{use} = [ keys %$configs ];

	dispatcher 'do-not-reopen';

	foreach my $name (keys %$configs)
	{	my $config = $configs->{$name} || {};