変数をファイルハンドルとしてopen

5.8系のperlでは、こんなことができるっぽい。

my $output = '';

open (OUT, ">" , \$output);

print OUT "test\n";

close(OUT);

print $output;

Catalystはこの構文を使っているので、5.6系のperlではtestが通らない。Engine/Test.pmをnew_tmpfileとかseekとかで書きなおせば、テストは全部通る。