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;