give modules default loggers so they are usable on their own (in tests)

diff --git a/lib/System/Introspector/Report/Publish/MediaWiki.pm b/lib/System/Introspector/Report/Publish/MediaWiki.pm
index 2d4186a..768a465 100644 (file)
--- a/lib/System/Introspector/Report/Publish/MediaWiki.pm
+++ b/lib/System/Introspector/Report/Publish/MediaWiki.pm
@@ -1,7 +1,13 @@
 package System::Introspector::Report::Publish::MediaWiki;
 use Moo;
 use Try::Tiny;
-use Log::Contextual qw( :log );
+use Log::Contextual::WarnLogger;
+use Log::Contextual qw( :log ),
+  -default_logger => Log::Contextual::WarnLogger->new({
+    env_prefix => 'SI_REPORT_MEDIAWIKI',
+    levels      => [qw( error fatal warn )],
+  });
+
 use aliased 'System::Introspector::Report::Publish::MediaWiki::Connection';
 
 has page_options => (

diff --git a/lib/System/Introspector/Report/Source.pm b/lib/System/Introspector/Report/Source.pm
index 7373df9..1af1efb 100644 (file)
--- a/lib/System/Introspector/Report/Source.pm
+++ b/lib/System/Introspector/Report/Source.pm
@@ -3,7 +3,12 @@ use Moo;
 use JSON::PP;
 use IO::All;
 use Module::Runtime qw( use_module );
-use Log::Contextual qw( :log );
+use Log::Contextual::WarnLogger;
+use Log::Contextual qw( :log ),
+  -default_logger => Log::Contextual::WarnLogger->new({
+    env_prefix => 'SI_REPORT_SOURCE',
+    levels      => [qw( error fatal warn )],
+  });
 
 my $_json = JSON::PP->new->utf8->relaxed->allow_nonref;