Bulknews::Subtech

■ [Perl] Dumping variables Everywhere without use() 21:34

2006/10/07 - memo - unknownplace.org

なんかいろいろやっているけど UNIVERSAL も CORE も CORE::GLOBAL もだめなんじゃないかという気がする。どれも perl -MP -e 'package XYZ; p "foo"' とすると

String found where operator expected at -e line 1, near "p "foo""

とか言われて怒られる。いっそのことこういうのはどうだ。

package P;
use strict;
use YAML;

*CORE::GLOBAL::dump = sub {
    warn YAML::Dump(@_);
};

1;

perl のコア関数 dump を上書き。dump なんて誰も使わないでしょ。これならどの名前空間からもいける。