Add Catalyst::Component::ContextClosure.

diff --git a/Makefile.PL b/Makefile.PL
index 71898e1..8279a91 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -5,6 +5,7 @@ perl_version '5.008001';
 name 'Catalyst-Runtime';
 all_from 'lib/Catalyst/Runtime.pm';
 
+requires 'namespace::autoclean';
 requires 'namespace::clean';
 requires 'B::Hooks::EndOfScope' => '0.08';
 requires 'MooseX::Emulate::Class::Accessor::Fast' => '0.00801';
@@ -32,6 +33,7 @@ requires 'Time::HiRes';
 requires 'Tree::Simple' => '1.15';
 requires 'Tree::Simple::Visitor::FindByPath';
 requires 'URI' => '1.35';
+requires 'Task::Weaken';
 requires 'Text::Balanced'; # core in 5.8.x but mentioned for completeness
 requires 'MRO::Compat';
 requires 'String::RewritePrefix' => '0.004'; # Catalyst::Utils::resolve_namespace

diff --git a/lib/Catalyst/Component/ContextClosure.pm b/lib/Catalyst/Component/ContextClosure.pm
new file mode 100644 (file)
index 0000000..0aaf8bf
--- /dev/null
+++ b/lib/Catalyst/Component/ContextClosure.pm
@@ -0,0 +1,14 @@
+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;