DBIC::Cursor::CachedのCacheKeyに関するパッチ

DBICを使ったプロジェクトが複数ある場合とか
キャッシュのキーがかぶるのもいやだからかいてみた。
プロジェクトのSchema名をぶちこんでるだけ。
基本かぶらないはずなんだけどねー。

$ diff Cached.pm Cached.pm.org
51c51
<   return Digest::SHA1::sha1_hex(Storable::nfreeze([ ref($storage->schema),$args, $attrs ]));
---
>   return Digest::SHA1::sha1_hex(Storable::nfreeze([ $args, $attrs ]));