Actually just Import::Into

Sun, 18 Feb 2018 16:27:03 -0500

author
Meredith Howard <mhoward@roomag.org>
date
Sun, 18 Feb 2018 16:27:03 -0500
changeset 692
4573c0ed4d0d
parent 691
5e08af1add1e
child 693
ef18d50728ef

Actually just Import::Into

.lib/perl5/ReplyStartup.pm file | annotate | diff | comparison | revisions
bin/setup-cpan-faves file | annotate | diff | comparison | revisions
--- 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;
--- a/bin/setup-cpan-faves
+++ b/bin/setup-cpan-faves
@@ -10,7 +10,7 @@ Pod::Cpandoc
 
 Perl::Tidy
 
-Import::Base
+Import::Into
 experimentals
 
 Reply

mercurial