comparison: .lib/perl5/ReplyStartup.pm
.lib/perl5/ReplyStartup.pm
- changeset 693
- ef18d50728ef
- parent 692
- 4573c0ed4d0d
equal
deleted
inserted
replaced
| 692:4573c0ed4d0d | 693:ef18d50728ef |
|---|---|
| 5 use Import::Into; | 5 use Import::Into; |
| 6 | 6 |
| 7 sub import { | 7 sub import { |
| 8 my $caller = caller(0); | 8 my $caller = caller(0); |
| 9 | 9 |
| 10 import::into(feature => $caller, ':5.14'); | |
| 11 import::into($_ => $caller) for qw( | 10 import::into($_ => $caller) for qw( |
| 12 strict | 11 strict |
| 13 warnings | 12 warnings |
| 14 experimentals | 13 experimentals |
| 15 Path::Tiny | 14 Path::Tiny |
| 16 ); | 15 ); |
| 16 import::into(feature => $caller, ':5.14'); | |
| 17 import::into('Data::Printer' => $caller, { | |
| 18 filters => {-external => ['JSON', 'URI']}, | |
| 19 class => {show_methods => 'public', inherited => 'public'}, | |
| 20 }); | |
| 17 | 21 |
| 18 # Run anything in .replyrc.local.pl in the context of | 22 # Run anything in .replyrc.local.pl in the context of |
| 19 # main, at compile time. | 23 # main, at compile time. |
| 20 eval(<<END_PERL)->(); | 24 eval(<<END_PERL)->(); |
| 21 package $caller; sub { | 25 package $caller; sub { |
