[catagits/Catalyst-Runtime.git] / lib / Catalyst / Component / ContextClosure.pm

package Catalyst::Component::ContextClosure;

use Moose::Role;
use Scalar::Util 'weaken';
use namespace::autoclean;

sub make_context_closure {
    my ($self, $closure, $ctx) = @_;
    my $weak_ctx = $ctx;
    weaken $ctx;
    return sub { $closure->($ctx, @_) };
}

1;
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;