Front page | perl.perl5.porters |
Postings from June 2022
> Can someone show an example, ideally on CPAN, where this gets used?
I _think_ you were asking for an example of someone using the return value from a require. In which case:
https://grep.metacpan.org/search?qci=&q=%3D%20require&qft=&qd=Acme-MetaSyntactic-Themes&f=lib%2FAcme%2FMetaSyntactic%2Funicode.pm
This is in BooK’s Acme::MetaSyntactic::unicode module (yeah, Acme):
if ( $] >= 5.006 && $] < 5.007003 ) {
eval { $data = require 'unicode/Name.pl'; };
}
elsif ( $] >= 5.007003 ) {
eval { $data = require 'unicore/Name.pl'; };
# since v5.11.3, unicore/Name.pl creates subroutines
# they end up in our namespace, so get rid of them
undef *code_point_to_name_special;
undef *name_to_code_point_special;
}
Guessing there may be other examples on CPAN – this is just the first one I found with grep.metacpan.org.
Neil
Thread Previous
|
Thread Next