comparison: .lib/perl5/ReplyStartup.pm
.lib/perl5/ReplyStartup.pm
- changeset 683
- ea343e7d3abc
- child 690
- d005acd0e883
equal
deleted
inserted
replaced
| 682:31d13f6d3a30 | 683:ea343e7d3abc |
|---|---|
| 1 package ReplyStartup; | |
| 2 | |
| 3 sub import { | |
| 4 my $code = eval(<<END_PERL) or die $@; | |
| 5 package main; | |
| 6 sub { | |
| 7 warnings->import; | |
| 8 strict->import; | |
| 9 require feature; feature->import(':5.14'); | |
| 10 require experimentals; experimentals->import; | |
| 11 | |
| 12 use Path::Tiny; | |
| 13 | |
| 14 -e \$_ && do(\$_) for "\$ENV{HOME}/.replyrc.local.pl"; | |
| 15 die \$@ if \$@; | |
| 16 } | |
| 17 END_PERL | |
| 18 | |
| 19 $code->(); | |
| 20 } | |
| 21 | |
| 22 1; |
