Mercurial > hg > mhoward > dotfiles / file revision

package ReplyStartup;
use warnings;
use strict;

use Import::Into;

sub import {
  my $caller = caller(0);

  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
}

1;