Storable で Can't store CODE

例えばこんなコードを実行すると

#!/usr/bin/perl

use strict;
#use warnings;
use Storable qw//;

my $coderef = sub {};
my $freezed = Storable::freeze($coderef);
my $thawed  = Storable::thaw($freezed);

exit;

怒られます。

Can't store CODE items at blib/lib/Storable.pm (autosplit into blib/lib/auto/Storable/_freeze.al) line 339, at ./storable.pl line 12

これの解決として、$Storable::Deparse に真値を入れてあげればよいみたい。上記のコードに 「$Storable::Deparse = 1」 にみたいなことをして再度実行してみると

Can't eval, please set $Storable::Eval to a true value at blib/lib/Storable.pm (autosplit into blib/lib/auto/Storable/thaw.al) line 415, at ./storable.pl line 13

と怒られる。
今度は「please set $Storable::Eval to a true value」と言ってくれているので freeze のときに怒っていた人とは別の人ですね、きっと。 優しさを感じます。mst ではないことは確かですね。
で、結局スクリプトはこうなります。

#!/usr/bin/perl

use strict;
#use warnings;
use Storable qw//;
use Data::Dumper;

$Storable::Deparse = 1;
$Storable::Eval    = 1;

my $coderef = sub {};
my $freezed = Storable::freeze($coderef);
my $thawed  = Storable::thaw($freezed);

exit;

Cache::*** 系をデバッグしてて適当に Catalyst の $c をキャッシュしようと思ったら「Can't store CODE」のエラーに出くわしたんですね。今まで CODE をキャッシュしたことがなかったのかなぁと思うとそうでもないような気がします。でも、キャッシュしたことがなかったんでしょうね。