Advertisement
Guest User

Untitled

a guest
Apr 25th, 2014
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.33 KB | None | 0 0
  1. my $admin_only = $r->under('/admin');
  2. $admin_only->get('*')->to(
  3.     cb => sub {
  4.         my $self = shift;
  5.         $self->redirect_to('/login') and return 0 unless ($self->is_user_authenticated);
  6.         return 1;
  7.     },
  8.     wrapper => 'layouts/admin.tt',
  9. );
  10.  
  11. $admin_only->get('dashboard')->to('admin#dashboard');
  12. $admin_only->root->to('admin#dashboard');
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement