うまい棒の断片

■ [perl]Sys::SyslogのsetlogsockがUNIVERSAL::requireでimportできない？ 01:01

UNIVERSAL::requireを参考にしたとこ

• http://d.hatena.ne.jp/end0tknr/20080626/1214429999
• http://egg.bomcity.com/wiki?UNIVERSAL::require
• http://www.ndis.co.jp/blog/tech/2008/12/use-require-import.html

できないことないよなー。きっとしょうもないところを間違ってるんだ。

use UNIVERSAL::require;

my $module = "Sys::Syslog";
$module->use(':DEFAULT', 'setlogsock');

setlogsockは@EXPORT_OKに入ってるからこれでいいと思ったんだけど。他のモジュールだとこれと同じ方法で@EXPORT_OKのサブルーチンはimportできたのに。