use Moose::Role;
use Carp qw/croak/;
-use namespace::clean qw/croak/;
-use Scalar::Util qw/weaken/;
+use namespace::clean -except => 'meta';
+
+with 'Catalyst::Component::ContextClosure';
=head1 NAME
=head1 VERSION
-Version 0.05
+Version 0.07
=cut
-our $VERSION = '0.06';
+our $VERSION = '0.07';
=head1 SYNOPSIS
$self;
};
-around 'render' => sub {
- my $next = shift;
+before 'render' => sub {
my ($self, $c, @args) = @_;
-
- weaken $c;
-
- $c->stash->{subinclude} = sub { $self->_subinclude( $c, @_ ) };
- $c->stash->{subinclude_using} = sub { $self->_subinclude_using( $c, @_ ) };
- $self->$next( $c, @args );
+ $c->stash->{subinclude} = $self->make_context_closure(sub { $self->_subinclude( @_ ) }, $c);
+ $c->stash->{subinclude_using} = $self->make_context_closure(sub { $self->_subinclude_using( @_ ) }, $c);
};
sub set_subinclude_plugin {