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