use base 'Catalyst::Base';
use Data::Dumper ();
+use Scalar::Util qw(weaken);
sub dump {
my ( $self, $reference ) = @_;
# Repair context
$reference->{_context} = $context;
+ weaken( $reference->{_context} );
# Repair body
$reference->{_body} = $body;