Advertisement
Guest User

Untitled

a guest
Jul 1st, 2014
205
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.46 KB | None | 0 0
  1. sub startup {
  2.     my $self = shift;
  3.  
  4.     $self->helper(API => sub {
  5.         ...
  6.         if (no error) {
  7.             return { result => { foo => 'bar' } };
  8.         } elsif (error occured) {
  9.             return { error => { foo => 'bar' } };
  10.         }
  11.     });
  12.  
  13.     my $r = $self->routes;
  14.     $r->get('/')->to('app#main');  
  15. }
  16.  
  17. # at app.pm
  18. sub main {
  19.     my $self = shift;
  20.  
  21.     my $api = $self->API(args);
  22.     if ($api->{'error'}) {
  23.         $self->render('error/api', %{$self->{'error'}});
  24.     }
  25.     ...
  26.     $self->render('app/main')
  27. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement