s/Config::JFDK/Config::ZOMG/

Author: oalders

cpanfile

@@ -29,7 +29,7 @@ requires 'CatalystX::InjectComponent';
 requires 'CatalystX::RoleApplicator';
 requires 'CatalystX::Fastly::Role::Response', '0.06';
 requires 'CPAN::Repository::Perms';
-requires 'Config::JFDI';
+requires 'Config::ZOMG', '>=', '1.000000';
 requires 'Cpanel::JSON::XS', '3.0115';
 requires 'Cwd';
 requires 'Data::Printer', '0.38';

cpanfile.snapshot

@@ -1267,6 +1267,18 @@ DISTRIBUTIONS
       perl v5.8.1
       strict 0
       utf8 0
+  Config-ZOMG-1.000000
+    pathname: F/FR/FREW/Config-ZOMG-1.000000.tar.gz
+    provides:
+      Config::ZOMG 1.000000
+      Config::ZOMG::Source::Loader 1.000000
+    requirements:
+      Clone 0
+      Config::Any 0
+      ExtUtils::MakeMaker 6.30
+      Hash::Merge::Simple 0
+      List::Util 0
+      Moo 0
   Context-Preserve-0.01
     pathname: J/JR/JROCKWAY/Context-Preserve-0.01.tar.gz
     provides:

lib/MetaCPAN/Role/HasConfig.pm

@@ -2,9 +2,9 @@ package MetaCPAN::Role::HasConfig;
 
 use Moose::Role;
 
-use MetaCPAN::Types qw(HashRef);
-
 use FindBin;
+use Config::ZOMG ();
+use MetaCPAN::Types qw(HashRef);
 
 # Done like this so can be required by a roles
 sub config {
@@ -20,10 +20,10 @@ has _config => (
 
 sub _build_config {
     my $self = shift;
-    return Config::JFDI->new(
+    return Config::ZOMG->new(
         name => 'metacpan_server',
         path => "$FindBin::RealBin/..",
-    )->get;
+    )->load;
 }
 
 1;

lib/MetaCPAN/Script/Runner.pm

@@ -3,8 +3,8 @@ package MetaCPAN::Script::Runner;
 use strict;
 use warnings;
 
-use Config::JFDI;
-use File::Path ();
+use Config::ZOMG ();
+use File::Path   ();
 use Hash::Merge::Simple qw(merge);
 use IO::Interactive qw(is_interactive);
 use Module::Pluggable search_path => ['MetaCPAN::Script'];
@@ -32,22 +32,22 @@ sub run {
 }
 
 sub build_config {
-    my $config = Config::JFDI->new(
+    my $config = Config::ZOMG->new(
         name => 'metacpan',
         path => 'etc'
-    )->get;
+    )->load;
     if ( $ENV{HARNESS_ACTIVE} ) {
-        my $tconf = Config::JFDI->new(
+        my $tconf = Config::ZOMG->new(
             name => 'metacpan',
             file => 'etc/metacpan_testing.pl'
-        )->get;
+        )->load;
         $config = merge $config, $tconf;
     }
     elsif ( is_interactive() ) {
-        my $iconf = Config::JFDI->new(
+        my $iconf = Config::ZOMG->new(
             name => 'metacpan',
             file => 'etc/metacpan_interactive.pl'
-        )->get;
+        )->load;
         $config = merge $config, $iconf;
     }
     return $config;