Commit | Line | Data |
---|---|---|
5ad8be8c | 1 | package Catalyst::Component::ContextClosure; |
2 | ||
3 | use Moose::Role; | |
4 | use Scalar::Util 'weaken'; | |
5 | use namespace::autoclean; | |
6 | ||
7 | sub make_context_closure { | |
8 | my ($self, $closure, $ctx) = @_; | |
9 | my $weak_ctx = $ctx; | |
10 | weaken $ctx; | |
11 | return sub { $closure->($ctx, @_) }; | |
12 | } | |
13 | ||
14 | 1; |