.lib/perl5/ReplyStartup.pm

Sat, 17 Feb 2018 02:11:40 -0500

author
Meredith Howard <mhoward@roomag.org>
date
Sat, 17 Feb 2018 02:11:40 -0500
changeset 688
2ad9a3d85adc
parent 683
ea343e7d3abc
child 690
d005acd0e883
permissions
-rw-r--r--

dotjs is gone

package ReplyStartup;

sub import {
  my $code = eval(<<END_PERL) or die $@;
    package main;
    sub {
      warnings->import;
      strict->import;
      require feature; feature->import(':5.14');
      require experimentals; experimentals->import;

      use Path::Tiny;

      -e \$_ && do(\$_) for "\$ENV{HOME}/.replyrc.local.pl";
      die \$@ if \$@;
    }
END_PERL

  $code->();
}

1;

mercurial