Catalyst Scalar::Util weaken
weakenってなんじゃらほいと思ったら、
Scalar::Utilのメソッドだった。
# For on-demand data $c->request->{_context} = $c; $c->response->{_context} = $c; weaken( $c->request->{_context} ); weaken( $c->response->{_context} );
参照をよわくするやつらしい。
http://search.cpan.org/~gbarr/Scalar-List-Utils-1.19/lib/Scalar/Util.pm