# HG changeset patch
# User Meredith Howard <mhoward@roomag.org>
# Date 1518988292 18000
# Node ID 5e08af1add1e9315ef3747371aa5c83c079aedce
# Parent  d005acd0e883ecc979a7f5b66c98092d0a965494
Let's use Import::Base

diff --git a/.lib/perl5/ReplyStartup.pm b/.lib/perl5/ReplyStartup.pm
--- a/.lib/perl5/ReplyStartup.pm
+++ b/.lib/perl5/ReplyStartup.pm
@@ -1,22 +1,29 @@
 package ReplyStartup;
+use warnings;
+use strict;
+use parent 'Import::Base';
+
+our @IMPORT_MODULES = (
+  'strict',
+  'warnings',
+  'feature' => [':5.14'],
+  'experimentals',
+  'Path::Tiny',
+);
 
 sub import {
-  my $code = eval(<<END_PERL) or die $@;
-    package main;
-    sub {
-      warnings->import;
-      strict->import;
-      require feature; feature->import(':5.14');
-      require experimentals; experimentals->import;
+  my $caller = caller(0);
 
-      use Path::Tiny;
-
+  # Run anything in .replyrc.local.pl in the context of main, at compile time.
+  eval(<<END_PERL)->();
+    package $caller; sub {
       -e \$_ && do(\$_) for glob('~/.replyrc.local.pl');
       die \$@ if \$@;
     }
 END_PERL
 
-  $code->();
+  our @ISA;
+  goto($ISA[0]->can('import'));
 }
 
 1;
diff --git a/bin/setup-cpan-faves b/bin/setup-cpan-faves
--- a/bin/setup-cpan-faves
+++ b/bin/setup-cpan-faves
@@ -10,6 +10,7 @@ Pod::Cpandoc
 
 Perl::Tidy
 
+Import::Base
 experimentals
 
 Reply