package Log::Contextual::Easy::Default;
$Log::Contextual::Easy::Default::VERSION = '0.008001';
# ABSTRACT: Import all logging methods with WarnLogger as default

use strict;
use warnings;

use base 'Log::Contextual';

sub arg_default_logger {
   if ($_[1]) {
      return $_[1];
   } else {
      require Log::Contextual::WarnLogger;
      my $package = uc(caller(3));
      $package =~ s/::/_/g;
      return Log::Contextual::WarnLogger->new({env_prefix => $package});

sub default_import { qw(:dlog :log ) }




=encoding UTF-8

=head1 NAME

Log::Contextual::Easy::Default - Import all logging methods with WarnLogger as default

=head1 VERSION

version 0.008001


In your module:

 package My::Module;
 use Log::Contextual::Easy::Default;

 log_debug { "your message" };
 Dlog_trace { $_ } @vars;

In your program:

 use My::Module;

 # enable warnings

 # or use a specific logger with set_logger / with_logger


By default, this module enables a L<Log::Contextual::WarnLogger>
with C<env_prefix> based on the module's name that uses
Log::Contextual::Easy. The logging levels are set to C<trace> C<debug>,
C<info>, C<warn>, C<error>, and C<fatal> (in this order) and all
logging functions (L<log_...|Log::Contextual/"log_$level">,
L<Dlog_...|Log::Contextual/"Dlog_$level">, and
L<Dlog...|Log::Contextual/"DlogS_$level">) are exported.

For what C<::Default> implies, see L<Log::Contextual/-default_logger>.

=head1 SEE ALSO

=over 4

=item L<Log::Contextual::Easy::Package>


=head1 AUTHOR

Arthur Axel "fREW" Schmidt <>


This software is copyright (c) 2018 by Arthur Axel "fREW" Schmidt.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.