I've been thinking about this for a while... I think that it ought to be possible using B::Deparse.

According to the doc:

 use B::Deparse;
 $deparse = B::Deparse->new("-p", "-sC");
 $body = $deparse->coderef2text(\&func);
 eval "sub func $body"; # the inverse operation
[download]

Note that you can probably already do this without touching Storable. IIRC, before freeze()/thaw()ing Storable will try to call STORABLE_{freeze,thaw} in your namespace. You can use that as a filter mechanism.

-- darobin