Select Code to Download

...
die Exception::NoUser->new(-requested_uri => $request->uri);
...

my $result = eval { $app->process($request) };
if ($@) {
...
                            -message => $@);
}
$self->emit($result);

sub process {
  my($self, $request) = @_;
...
  $self->user_has_required_access($user) or
    die Exception::InsufficientAccess->new(user => $user);
}