Sun, 18 Feb 2018 16:11:32 -0500
Let's use Import::Base
683 | 1 | package ReplyStartup; |
691
5e08af1add1e
Let's use Import::Base
Meredith Howard <mhoward@roomag.org>
parents:
690
diff
changeset
|
2 | use warnings; |
5e08af1add1e
Let's use Import::Base
Meredith Howard <mhoward@roomag.org>
parents:
690
diff
changeset
|
3 | use strict; |
5e08af1add1e
Let's use Import::Base
Meredith Howard <mhoward@roomag.org>
parents:
690
diff
changeset
|
4 | use parent 'Import::Base'; |
5e08af1add1e
Let's use Import::Base
Meredith Howard <mhoward@roomag.org>
parents:
690
diff
changeset
|
5 | |
5e08af1add1e
Let's use Import::Base
Meredith Howard <mhoward@roomag.org>
parents:
690
diff
changeset
|
6 | our @IMPORT_MODULES = ( |
5e08af1add1e
Let's use Import::Base
Meredith Howard <mhoward@roomag.org>
parents:
690
diff
changeset
|
7 | 'strict', |
5e08af1add1e
Let's use Import::Base
Meredith Howard <mhoward@roomag.org>
parents:
690
diff
changeset
|
8 | 'warnings', |
5e08af1add1e
Let's use Import::Base
Meredith Howard <mhoward@roomag.org>
parents:
690
diff
changeset
|
9 | 'feature' => [':5.14'], |
5e08af1add1e
Let's use Import::Base
Meredith Howard <mhoward@roomag.org>
parents:
690
diff
changeset
|
10 | 'experimentals', |
5e08af1add1e
Let's use Import::Base
Meredith Howard <mhoward@roomag.org>
parents:
690
diff
changeset
|
11 | 'Path::Tiny', |
5e08af1add1e
Let's use Import::Base
Meredith Howard <mhoward@roomag.org>
parents:
690
diff
changeset
|
12 | ); |
683 | 13 | |
14 | sub import { | |
691
5e08af1add1e
Let's use Import::Base
Meredith Howard <mhoward@roomag.org>
parents:
690
diff
changeset
|
15 | my $caller = caller(0); |
683 | 16 | |
691
5e08af1add1e
Let's use Import::Base
Meredith Howard <mhoward@roomag.org>
parents:
690
diff
changeset
|
17 | # Run anything in .replyrc.local.pl in the context of main, at compile time. |
5e08af1add1e
Let's use Import::Base
Meredith Howard <mhoward@roomag.org>
parents:
690
diff
changeset
|
18 | eval(<<END_PERL)->(); |
5e08af1add1e
Let's use Import::Base
Meredith Howard <mhoward@roomag.org>
parents:
690
diff
changeset
|
19 | package $caller; sub { |
690
d005acd0e883
also portability improvements
Meredith Howard <mhoward@roomag.org>
parents:
683
diff
changeset
|
20 | -e \$_ && do(\$_) for glob('~/.replyrc.local.pl'); |
683 | 21 | die \$@ if \$@; |
22 | } | |
23 | END_PERL | |
24 | ||
691
5e08af1add1e
Let's use Import::Base
Meredith Howard <mhoward@roomag.org>
parents:
690
diff
changeset
|
25 | our @ISA; |
5e08af1add1e
Let's use Import::Base
Meredith Howard <mhoward@roomag.org>
parents:
690
diff
changeset
|
26 | goto($ISA[0]->can('import')); |
683 | 27 | } |
28 | ||
29 | 1; |