# Routes
my $if_login = $r->under('/')->to('user#is_logged_in');
$if_login->get('/')->name('home')->to('example#welcome');
 
# Controller -> User
 
sub is_logged_in {
  my $self = shift;
 
  return 1 if $self->session('username');
 
  if ($self->req->url->path eq '/') {
    $self->render(
      template => 'example/landing',
      status => 200
    );
  }
  else {
    $self->render(
      template => 'permission/not_logged_in',
      status => 403
    );
  }
 
  return undef;
}

IyBSb3V0ZXMKbXkgJGlmX2xvZ2luID0gJHItPnVuZGVyKCcvJyktPnRvKCd1c2VyI2lzX2xvZ2dlZF9pbicpOwokaWZfbG9naW4tPmdldCgnLycpLT5uYW1lKCdob21lJyktPnRvKCdleGFtcGxlI3dlbGNvbWUnKTsKCiMgQ29udHJvbGxlciAtPiBVc2VyCgpzdWIgaXNfbG9nZ2VkX2luIHsKICBteSAkc2VsZiA9IHNoaWZ0OwoKICByZXR1cm4gMSBpZiAkc2VsZi0+c2Vzc2lvbigndXNlcm5hbWUnKTsKCiAgaWYgKCRzZWxmLT5yZXEtPnVybC0+cGF0aCBlcSAnLycpIHsKICAgICRzZWxmLT5yZW5kZXIoCiAgICAgIHRlbXBsYXRlID0+ICdleGFtcGxlL2xhbmRpbmcnLAogICAgICBzdGF0dXMgPT4gMjAwCiAgICApOwogIH0KICBlbHNlIHsKICAgICRzZWxmLT5yZW5kZXIoCiAgICAgIHRlbXBsYXRlID0+ICdwZXJtaXNzaW9uL25vdF9sb2dnZWRfaW4nLAogICAgICBzdGF0dXMgPT4gNDAzCiAgICApOwogIH0KCiAgcmV0dXJuIHVuZGVmOwp9