Mercurial > hg > mhoward > dotfiles / file revision

• file
• latest
• revisions
• annotate
• diff
• comparison
• raw

.lib/perl5/ReplyStartup.pm@d005acd0e883

.lib/perl5/ReplyStartup.pm

Sat, 17 Feb 2018 02:30:35 -0500

author

Meredith Howard <mhoward@roomag.org>

date

Sat, 17 Feb 2018 02:30:35 -0500

changeset 690

d005acd0e883

parent 683

ea343e7d3abc

child 691

5e08af1add1e

permissions

-rw-r--r--

also portability improvements

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 glob('~/.replyrc.local.pl');
      die \$@ if \$@;
    }
END_PERL

  $code->();
}

1;