config and logging

Author: haarg

bin/author.pl

@@ -8,7 +8,7 @@ package Author;
 use Email::Valid ();
 use Encode       ();
 use Getopt::Long;
-use Log::Contextual::Easy::Default qw< :log :dlog >;
+use MetaCPAN::Logger qw< :log :dlog >;
 use URI ();
 use XML::Simple qw< XMLin >;
 
@@ -17,6 +17,7 @@ package Author;
     author_dir
     cpan_dir
     diff_struct
+    config
 >;
 
 # config
@@ -54,8 +55,8 @@ package Author;
 my $pauseid;
 GetOptions( "pauseid=s" => \$pauseid );
 
-### TODO - move out
-$ENV{AUTHOR_UPTO} = "TRACE";
+my $config = config();
+$config->init_logger;
 
 # setup
 my $cpan = cpan_dir();

lib/MetaCPAN/Ingest.pm

@@ -6,10 +6,12 @@ use warnings;
 use Path::Tiny qw< path >;
 use Ref::Util qw< is_ref is_plain_arrayref is_plain_hashref >;
 use LWP::UserAgent;
+use MetaCPAN::Config;
 
 use Sub::Exporter -setup => {
     exports => [
         qw<
+            config
             author_dir
             cpan_dir
             diff_struct
@@ -18,6 +20,16 @@ use Sub::Exporter -setup => {
     ]
 };
 
+my $config;
+sub config {
+    $config //= do {
+        MetaCPAN::Config->new(
+            name => __PACKAGE__,
+            path => path(__FILE__)->parent(3)->stringify,
+        );
+    };
+}
+
 sub author_dir {
     my $pauseid = shift;
     my $dir     = 'id/'

log4perl.conf

@@ -0,0 +1,7 @@
+log4perl.rootLogger=DEBUG, OUTPUT
+
+log4perl.appender.OUTPUT=Log::Log4perl::Appender::Screen
+log4perl.appender.OUTPUT.stderr=1
+
+log4perl.appender.OUTPUT.layout=PatternLayout
+log4perl.appender.OUTPUT.layout.ConversionPattern=[%d] [%p] %m%n

metacpan_ingest.conf

@@ -0,0 +1,3 @@
+log4perl_file log4perl.conf
+
+# cpan ./CPAN