package MyApp;
 use Catalyst;
 our $__ACTIVE_CTX = undef;
 sub ctx { $__ACTIVE_CTX }
 around 'dispatch' => sub {
   my ($orig, $c, @args) = @_;
   local $__ACTIVE_CTX = $c;
   $c->$orig(@args)
 };