.lib/perl5/ReplyStartup.pm@2ad9a3d85adc (annotated)
.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
| 683 | 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; |
