Mercurial > hg > mhoward > dotfiles / file diff

--- a/.lib/perl5/ReplyStartup.pm
+++ b/.lib/perl5/ReplyStartup.pm
@@ -1,29 +1,28 @@
 package ReplyStartup;
 use warnings;
 use strict;
-use parent 'Import::Base';
 
-our @IMPORT_MODULES = (
-  'strict',
-  'warnings',
-  'feature' => [':5.14'],
-  'experimentals',
-  'Path::Tiny',
-);
+use Import::Into;
 
 sub import {
   my $caller = caller(0);
 
-  # Run anything in .replyrc.local.pl in the context of main, at compile time.
+  import::into(feature => $caller, ':5.14');
+  import::into($_ => $caller) for qw(
+    strict
+    warnings
+    experimentals
+    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
-
-  our @ISA;
-  goto($ISA[0]->can('import'));
 }
 
 1;