.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

683
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
1 package ReplyStartup;
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
2
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
3 sub import {
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
4 my $code = eval(<<END_PERL) or die $@;
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
5 package main;
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
6 sub {
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
7 warnings->import;
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
8 strict->import;
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
9 require feature; feature->import(':5.14');
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
10 require experimentals; experimentals->import;
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
11
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
12 use Path::Tiny;
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
13
690
d005acd0e883 also portability improvements
Meredith Howard <mhoward@roomag.org>
parents: 683
diff changeset
14 -e \$_ && do(\$_) for glob('~/.replyrc.local.pl');
683
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
15 die \$@ if \$@;
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
16 }
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
17 END_PERL
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
18
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
19 $code->();
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
20 }
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
21
ea343e7d3abc move reply startup
Meredith Howard <mhoward@roomag.org>
parents:
diff changeset
22 1;

mercurial