Help for this page

Select Code to Download


  1. or download this
    ...
die Exception::NoUser->new(-requested_uri => $request->uri);
...
  2. or download this
    my $result = eval { $app->process($request) };
if ($@) {
...
                            -message => $@);
}
$self->emit($result);
  3. or download this
    sub process {
  my($self, $request) = @_;
...
  $self->user_has_required_access($user) or
    die Exception::InsufficientAccess->new(user => $user);
}