Make config easier to get for now

Author: oalders

lib/MetaCPAN/Config.pm

@@ -0,0 +1,35 @@
+package MetaCPAN::Config;
+
+use warnings;
+use strict;
+
+use FindBin         ();
+use Config::ZOMG    ();
+use Module::Runtime qw( require_module );
+
+sub config {
+    my $config = _zomg("$FindBin::RealBin/..");
+    return $config if $config;
+
+    require_module('Git::Helpers');
+    $config = _zomg( Git::Helpers::checkout_root() );
+
+    return $config if $config;
+
+    die "Couldn't find config file in $FindBin::RealBin/.. or "
+        . Git::Helpers::checkout_root();
+}
+
+sub _zomg {
+    my $path = shift;
+
+    my $config = Config::ZOMG->new(
+        local_suffix => $ENV{HARNESS_ACTIVE} ? 'testing' : 'local',
+        name         => 'metacpan_server',
+        path         => $path,
+    );
+
+    return $config->open;
+}
+
+1;

lib/MetaCPAN/Role/HasConfig.pm

@@ -2,10 +2,8 @@ package MetaCPAN::Role::HasConfig;
 
 use Moose::Role;
 
-use FindBin                   ();
-use Config::ZOMG              ();
+use MetaCPAN::Config          ();
 use MetaCPAN::Types::TypeTiny qw( HashRef );
-use Module::Runtime           qw( require_module );
 
 # Done like this so can be required by a role
 sub config {
@@ -20,30 +18,8 @@ has _config => (
 );
 
 sub _build_config {
-    my $self   = shift;
-    my $config = $self->_zomg("$FindBin::RealBin/..");
-    return $config if $config;
-
-    require_module('Git::Helpers');
-    $config = $self->_zomg( Git::Helpers::checkout_root() );
-
-    return $config if $config;
-
-    die "Couldn't find config file in $FindBin::RealBin/.. or "
-        . Git::Helpers::checkout_root();
-}
-
-sub _zomg {
     my $self = shift;
-    my $path = shift;
-
-    my $config = Config::ZOMG->new(
-        local_suffix => $ENV{HARNESS_ACTIVE} ? 'testing' : 'local',
-        name         => 'metacpan_server',
-        path         => $path,
-    );
-
-    return $config->open;
+    return MetaCPAN::Config::config();
 }
 
 1;