the cool() method is calling thaw($data) when $data is undef.
if Crypt::CBC is used, changes in Crypt::CBC will kill the program if
$data doesn't have a header that CBC is looking for.
Probably the easiest thing is not calling thaw if $data is undef:
my $soggy = ( $self->{noserialize} ) ? $data : $self->{capncrunch}->thaw
($data) if $data;
RT for rt.cpan.org