orz perlモジュール

tech

http://search.cpan.org/~ingy/orz/lib/orz.pm
バカですか(笑)
total failureって何だろう？って思ったので、ソースを読んでみると

sub pmc_compile {
    my ($class, $source) = @_;
    $source =~ s/^/# /gm;
    return "# orz...\n$source"; 
}

こういうことだった。use orz;した後からのソースがコメントアウトされる、というわけだ。

#!/usr/bin/perl

print "a\n";
print "b\n";
use orz;
print "c\n";
no orz;
print "d\n";

サンプルソースにしてもお粗末過ぎる内容だけれど、これを実行すると、"c"は出力されない。こっからここまでをコメント化してテストしてみる、そういうコーディングスタイルを取る俺なんかには意外に便利。
Acme::MorningMusumeみたいな冗談かと思ったのに(笑)
http://search.cpan.org/~kentaro/Acme-MorningMusume-0.05/lib/Acme/MorningMusume.pm