# HG changeset patch # User Meredith Howard # Date 1518989223 18000 # Node ID 4573c0ed4d0d0908b48be9c2995cefd967da9e67 # Parent 5e08af1add1e9315ef3747371aa5c83c079aedce Actually just Import::Into diff --git a/.lib/perl5/ReplyStartup.pm b/.lib/perl5/ReplyStartup.pm --- 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(<(); package $caller; sub { -e \$_ && do(\$_) for glob('~/.replyrc.local.pl'); die \$@ if \$@; } END_PERL - - 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,7 +10,7 @@ Pod::Cpandoc Perl::Tidy -Import::Base +Import::Into experimentals Reply